Tcl/Tk 烹调书 - Tk 基础

第 2 步: 创建和放置按钮并得到当前的配置选项

脚本

现在向 appl1.tcl 添加下面两行来建立按钮。

button .rc.b -text "Press Me to Quit"  -command {exit}
pack .rc.b

第一行是在框架".rc"中建立一个按钮的命令。就象 Unix 有层次的目录结构用一个"/"指定每个层次一样，在 Tk 中使用 "." [注意类似之处，在 Unix 中"/"表示根目录，在 Tk 中"."表示最顶层窗口]。按钮的名字是 .rc.b 并且 Tk 建立一个唯一组件命令 .rc.b。用这个命令来改变按钮。建立行还指定按钮要显示标签"Press Me to Quit"。选项 -command 使 Tcl 脚本在用户在按钮上点击鼠标左键时执行选项 "exit"。

第二行把按钮包装进它的父组件中，缺省是在顶部。结果如下: