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脚本。将上述脚本加入到代码中，鼠标将会显示事件放生时鼠标所在的位置。