2.蛤蟆的TCL脚本学习Tk入门基础.docxVIP

2.蛤蟆的TCL脚本学习——Tk入门基础 Tk 是对 Tcl 的图形工具箱扩展。Tk 发行版与 Tcl 的发行版是在一起的。 Tk第一个例子 内容如下： package require Tk button .hello -text Hello \ -command {puts stdout \ Hello, World!} button .goodbye -text Bye! \ -command {exit} pack .hello -padx 60 -pady 5 pack .goodbye -padx 60 -pady 5 输出一个界面。 定义了两个按钮小部件?.hello?和?.goodbye?― 它们被放进窗口中，该窗口收缩至由指定按钮间距定义的大小。执行该脚本时，在左边会显示一个对话框。单击?Hello?按钮，在父终端窗口中得到“Hello, World!”输出，单击?Bye!?以终止脚本。 Tk 小部件 button?― 有二十多种配置选项（从?anchor?和?font?到?padx?和?relief）的简单小部件。 canvas?― 画布是一种小部件，不仅可以包含其它小部件，而且包含各种类型的结构化图形，包括圆、线和多边形。 checkbutton?― 创建复选框样式的按钮小部件，它链接到一个变量。 entry?― 构建单行文本输入框。 frame?― 框架是主要用作容器或定位架的小部件。 label?― 创建标签对象。 listbox?― 创建文本字符串列表框。在定义小部件之后，添加各项。 menu?― 单个多面小部件，包含多种菜单样式的各种项。 menubutton?― 为下拉菜单实现提供可单击的顶级界面。 message?― 创建包括版本调整和字自动换行特性的文本显示窗口小部件。 radiobutton?― 创建单选按钮，它可以是与指定变量相关的一个集合之一。 scale?― 为在指定范围和分辨率内选择值而创建滑动块。 scrollbar?― 为在相关小部件中更改部分内容（通常是文本或图）而生成小部件。 text?― 创建显示一个或多个文本行并允许编辑该文本的小部件。 toplevel?― 创建新的顶级（在 X 桌面上）窗口。 调用演示 代码如下： package require Tk . configure -width 200 -height 400 label .header -text Tk Tutorial 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 Dont Worry -variable Mood -value 1 radiobutton .two -text Be Happy -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 button .cancel -command {exit} -text Cancel -background red place .ok -x 15 -y 350 place .cancel -x 120 -y 350 执行如下图1： 点击OK按钮时候会报错，因为没有process_data函数。 点击cancel按钮后退出。 其他命令 bind?创建 Tcl 脚本和 X 事件之间的关联； clipboard?是另一种多功能 Tk 命令 ― 它包含用于清除内容、装入内容和将内容粘贴到 Tk 剪贴板以及从 Tk 剪贴板粘贴内容 destroy?用于删除窗口及其所有子窗口。在‘.’（根）窗口中使用时，它删除整个应用程序。event?是一种功效强大的工具，用于生成虚拟窗口事件并将这些事件插入正在处理的队列中，就好象实际事件已经真的发生一样。 font?命令用于创建指定的系统字体实例。它允许系统字体的本地（对于脚本而言）命名、已命名字体的属性修改以及字体的“删除”。在?wish?提示符下输入?f