發圖.tcl

package require Tk
package require tkdnd

pack [ttk::label .drop -text "拖放到此處"] -fill both -expand 1
pack [ttk::button .browse -text "或選擇文件" -command chooseFileToUpload]

tkdnd::drop_target register .drop *
bind .drop <<Drop>> {
	upload %D
}

proc upload {fn} {
	set ret [exec curl -s -F name=@$fn http://dimg.vim-cn.com/]
	clipboard clear; clipboard append $ret
	tk_messageBox -message $ret
}

proc chooseFileToUpload {} {
	set fn [tk_getOpenFile]
	if {$fn == ""} return
	upload $fn
}