把别人的Tcl/Tk代码加入到Go语言里3
package main
import "github.com/nsf/gothic"
//wm title . "别人的tcl/tk代码，这段代码我忘记了在哪里得到的"
const init_script = `
wm geometry . 300x300+100+100
button .help -text 按钮1
bind .help <Enter> {showTip %x %y}
bind .help <Leave> {removeTip}
proc showTip {xcoord ycoord} {
set ::after [after 500 [list displayTip $xcoord $ycoord]]
}
proc removeTip {} {
if { [winfo exists .helpTip] } {
destroy .helpTip
}
after cancel $::after ;
}
proc displayTip {xcoord ycoord} {
label .helpTip -text "这个按钮\n带提示内容" -bg green -fg red
place .helpTip -x $xcoord -y $ycoord
after 2000 removeTip
}
place .help -x 10 -y 10
`
func main() {
ir := gothic.NewInterpreter(init_script)
<-ir.Done
}
运行效果如下
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
