Tcl(tool command language)工具命令语言,用于控制和扩展应用程序的动态语言(也称脚本语言)。Tcl最有用的一个扩展就是TK,用于开发图形用户界面GUI(Graphical User Interface)应用程序的工具集。本文使用wish(windowing shell)的应用程序,在终端键入wish,就会在屏幕上显示一个小的空白窗口,然后从控制台读取命令。
wish
wish
用Tk编写“Hello,World”程序
set a “hello world”
puts $a
简单介绍了Tcl的操作步骤和运行了简单的程序,下面将用wish运行一个简单的Tk脚本。
button .b -text "Hello, world!" -command exit
grid .b
在wish中输入两行Tcl脚本,窗口就会变成下图所示。如果把鼠标移到"Hello, world!"上,然后点击鼠标主键,这个窗口就会消失,并且退出wish。
示例中的button命令有两个选项:-text,指定了在按钮上显示字符串;-command,指定了用户激活这个按钮的所执行的Tcl脚本。下面是其他一些按钮选项,供大家参考:
-background 按钮的背景颜色,如blue yellow
-foreground 按钮的背景色,如back
-font 按钮使用的字体,如”time 12“代表12磅Times Roman字体
示例中创建了一个.b的按钮组件,创建的组件并不会自动显示。命令grid让这个按钮在组件出现在屏幕上。grid命令要求几何管理器调用栅格管理器(gridder)来管理.b。栅格管理器在一个纵横栅格中排列显示组件。这里的命令把.b放在栅格的第一行第一列,并让栅格的大小正好显示该组件。
变量与替换
set a 56
% 56
set b [expr $a *4]
%224
第一条命令将56赋给变量a,并且返回这个变量的值。示例中的%表示运行完命令后,产生的输出结果。第二条命令中,$让Tcl执行变量替换(variable substitution):Tcl解释器将$符后面的变量名替换为该变量的值,因此expr中接受的参数实际上是56*4。expr称为算数运算符。Tcl还支持命令替换(command substitution),允许把一条命令的结果作为另一条命令的输入参数。示例中的expr命令将56*4的值输出后,作为set命令的输入。Tcl中还有一个反斜线替换(backlash substitution),其作用是给出普通字符添加特殊含义,或者取消特殊字符的特殊含义,示例如下:
set a \$A
% $A
set newline \n
%
%
第一条命令将变量x设置为字符$A,第二条命令将变量newline赋值为包含一个换行符的字符串。
总结:Tcl支持三种替换方式:变量替换(variable substitution)
命令替换(command substitution)
反斜线替换(backlash substitution)
控制结构
下面示例使用变量和替换以及一些简单的控制结构,创建了一个名为factorial的Tcl过程(procedure),这个过程可以计算非负整数的阶乘。
proc factorial {val} {
set result 1
while {$val > 0} {
set result [expr $result*$val]
incr val -1
}
return $result
}
在wish或者tclsh中键入上述代码,或者写入一个文件,然后把这个文件source后,就会生成一个命名为factorial的命令。这个命令接受一个非负整数作为参数,进行结果其结果返回到终端显示。
proc命令获取三个参数:过程名称,用空格分隔的参数名列表以及过程块。会把过程名称作为新的命令加入到Tk解释器中。
return命令让过程退出,将变量result中的值作为这个过程的结果。
事件绑定
下面将示例为factori过程提供一个图形化界面的前台。并且介绍两个新的组件类型,演示Tcl的绑定机制,使得窗口中特定事情发生时,就执行特定的Tcl脚本。按钮的-command选项就是有特定组件类型实现的简单绑定。
proc factorial {val} {
set result 1
while {$val > 0} {
set result [expr $result*$val]
incr val -1
}
return $result
}
entry .value -width 6 -relief sunken -textvariable value
label .description -text "factorial is"
label .result -textvariable result
button .calculate -text "Calculate" \
-command {set result [factorial $value]}
bind .value <Return> {
.calculate flash
.calculate invoke
}
grid .value .description .result -padx 1m -pady 1m
grid .calculate - - -padx 1m -pady 1m
将上述代码输入wish中,就会显示所示的图形化界面,这里有一个输入组件,可以鼠标单击输入数字,点击”Calculate“的按钮,就阶乘的结果就会显示在窗口的右侧。在输入框按下Return键(用户通过键盘输入回车),也会出现同样的结果。
这个应用程序有四个组件:一个输入组件,一个按钮和两个标签。输入组件可以显示一行输入的文本。-relief选项设置为sunken,意思是输入组件向内嵌入窗口。选项-textvariable为输入组件指定的一个全局变量,用来保持输入的内容。标签组件分别控制说明文本,控制计算结果。
bind . <Motion> {puts "pointer at %x,%y"}
命令bind有三个参数:组件名,事件说明以及指定组件中指定事件发生时调用的Tcl脚本。将上述脚本加入到代码中,鼠标将会显示事件放生时鼠标所在的位置。