51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2433|回复: 3
打印 上一主题 下一主题

[讨论] 懂Tcl/tk的兄弟请进来看下

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-1-12 10:33:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
file:///C:/Documents%20and%20Settings/ellwin.zhang/桌面/1.jpg
wish84 consol 中显示:55 percent Hppy
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-1-12 10:35:50 | 只看该作者

继续上面的

而实例的说明中的效果应该是
在图像的文本窗口中显示了通过 OK 按钮调用的过程代码和样本输出。
即上图中的文本框里应该输出
proc process_data {SlidVal} {
    puts stdout "$SlidVal percent Hppy"
}
******
55 percent Hppy
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-1-12 10:36:31 | 只看该作者
不知道有没有大虾知道是为什么,谢谢
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-1-12 10:37:48 | 只看该作者
晕,才发现前面贴的代码不见了,文件代码是
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
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 01:26 , Processed in 0.104564 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表