把别人的Tcl/Tk代码加入到Go语言里3 带Tip的按钮

为什么80%的码农都做不了架构师？>>>   

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 main
import "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
}

转载于:https://my.oschina.net/tsl/blog/408869