把别人的Tcl/Tk代码加入到Go语言里3
名字不能长 · · 2203 次点击 · · 开始浏览
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
}
运行效果如下
有疑问加站长微信联系(非本文作者)
入群交流(和以上内容无关):加入Go大咖交流群,或添加微信:liuxiaoyan-s 备注:入群;或加QQ群:692541889
关注微信- 请尽量让自己的回复能够对别人有帮助
- 支持 Markdown 格式, **粗体**、~~删除线~~、
`单行代码` - 支持 @ 本站用户;支持表情(输入 : 提示),见 Emoji cheat sheet
- 图片支持拖拽、截图粘贴等方式上传
收入到我管理的专栏 新建专栏
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
}
运行效果如下