51Testing软件测试论坛

标题: 懂Tcl/tk的兄弟请进来看下 [打印本页]

作者: ellwin 时间: 2008-1-12 10:33
标题: 懂Tcl/tk的兄弟请进来看下
file:///C:/Documents%20and%20Settings/ellwin.zhang/桌面/1.jpg
wish84 consol 中显示：55 percent Hppy

作者: ellwin 时间: 2008-1-12 10:35
标题: 继续上面的
而实例的说明中的效果应该是
在图像的文本窗口中显示了通过 OK 按钮调用的过程代码和样本输出。
即上图中的文本框里应该输出
proc process_data {SlidVal} {
puts stdout "$SlidVal percent Hppy"
}
******
55 percent Hppy

作者: ellwin 时间: 2008-1-12 10:36
不知道有没有大虾知道是为什么，谢谢

作者: ellwin 时间: 2008-1-12 10:37
晕，才发现前面贴的代码不见了，文件代码是
proc process_data {SlidVal} {
puts stdout "$SlidVal percent Hppy"
}
. configure -width 200 -height 400
label .header -text "TK Turorial Example"
place .header -x 5 -y 2
scale .slider -from 1 -to 100 -orient horiz
.slider configure -variable SlidVal
place .slider -x 5 -y 20
entry .slidbox -width 5 -textvariable SlidVal
place .slidbox -x 120 -y 38
radiobutton .one -text "Don't Worry" -variable Mood -value 1
radiobutton .two -text "Be Hppy" -variable Mood -value 2
place .one -x 5 -y 70
place .two -x 5 -y 90
text .twindow -width 22 -height 14 -font {clean -14}
place .twindow -x 5 -y 120
button .ok -command {process_data $SlidVal} -text "OK" -background red
button .cancel -command {exit} -text "Cancel" -background red
place .ok -x 15 -y 350
place .cancel -x 120 -y 350

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)