把别人的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
}

运行效果如下

有疑问加站长微信联系（非本文作者）