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
}
运行效果如下
//=========================================================================
另一个代码如下:
package mainimport "github.com/nsf/gothic"
const init_script = `
package require BWidget
pack [Label .l -text 标签显示文字 -helptext 标签的tip提示]
`
func main() {
ir := gothic.NewInterpreter(init_script)
<-ir.Done
}