Tcl/Tk 烹调书 - 起步

目的

本节是一个关于如何设置你的环境来访问 Tcl/Tk 的其他扩展的一个简短的描述。它还介绍 Tcl shell 应用程序 tclsh，和基于窗口的 Tk shell 应用程序 wish。如果你是初学 Tcl/Tk 编程，在本节之后请接着看第 1 章和第 2 章。

你需要

如果是最终用户，那么你需要要求知道是否 Tcl/Tk 或你想用的其他扩展被安装在你的系统上。如果是则你需要知道二进制文件的绝对路径，还有它们的 include 和 lib 路径。如果没装，联系你的系统管理员并把上篇“家务”送交给他们。

设置环境变量

 Tcl/Tk 和它的扩展如 blt 的二进制和库文件一般安装在 /usr/bin 和 /usr/lib 下。如果不是这种情况 (例如，它们未被编译并并被安装在 /usr 下面)，你需要设置在你的 .cshrc 文件中设置一些环境变量(对于 Unix C shell 用户 - Bourne shell 用户应当编辑他们的 .profiles 文件并确信导出了设置的环境变量):

例如： 如果主目录是 ~/tcl 则

setenv TCL_LIBRARY 	~/tcl/itcl/lib/tcl7.4
setenv TK_LIBRARY 	~/tcl/itcl/lib/tk4.0
setenv ITCL_LIBRARY 	~/tcl/itcl/lib/itcl2.0
setenv ITK_LIBRARY 	~/tcl/itcl/lib/itk2.0
setenv IWIDGETS_LIBRARY ~/tcl/itcl/lib/iwidgets2.0
setenv EXPECT_LIBRARY 	~/tcl/expect/lib
setenv BLT_LIBRARY 	~/tcl/blt/lib

参照你要使用的扩展的包中的 README 文件。

应当设置你的查找路径来找到 tclsh ，wish 或 itkwish 等的正确的二进制文件。确信在你的 .login 或 .cshrc 或 .profile 文件的 set path 中包含了这些路径。 

注意：本书中的编程语法是为 Unix 机器准备的。

走马观花

tclsh

写你自己的 Tcl 脚本的起点是使你自己熟悉 Tcl 语法并学习核心 Tcl 命令。第一步使在你的命令工具/shell工具/Xterm 中在命令的层次上(at command level)键入 tclsh< rtn > 。Shell 将调用 tclsh 并且提示符将变成 % ，用以指示 tclsh 已经准备好了从键盘读你的 Tcl 命令，并把它们传递到解释器来求值。

每个 Tcl 命令由一个或多个字组成，其中第一个是解释器要调用的 C 函数的名称。命令中其余的字被作为 C 过程的参数来传递。这些 C 函数由 Tcl 库来提供。Tcl 包含提供给 Tcl 一个完整的系列的编程特征，如变量，控制流等。使用基本的 Tcl 应用来探索这些。你一样可以写你自己的函数并向 Tcl 解释器注册它们。在第 6 章中描述如何去做。现在尝试下面的简单命令来测试和品尝一下 Tcl:

expr 10 * 5 < rtn >
tclsh will print 50 and prompt you again.

expr 是用于完成算术操作的一个核心的 Tcl 应用。 expr 在求关系操作时对 Boolean 值返回 1 表示真和 0 表示假。在第一章 Tcl 基础中有 expr 的完整描述。

尝试:
% puts "Hi there" < rtn >

你将得到:

Hi There
%

所有 Tcl 命令由换行或分号来分隔。在一个命令中的反斜线告诉 Tcl 命令接续到下一行。

尝试
% puts "Hi there going to \
next line " < rtn >

你将得到:

Hi there going to  next line
%

键入

% exit < rtn >

来退出 tclsh。

注意: 实验在 Tcl 基础 中的应用，将学到使 Tcl 成为完整的编程语言的所有 Tcl 语法和内置的命令 。

wish

多数应用将使用 Tcl 作为脚本和把他们的模块汇合在一起的基础，而不是建立基于一个或多个 Tcl 扩展的他们自己的命令，特别的，Tk 是建造基于窗口的 Tcl 应用的命令工具箱。要是没有 Tk， Tcl 将仍旧只不过使另一门脚本语言。

Tk (和所有的 Tcl) 命令可以在 tk 窗口式 shell wish 中调用。

尝试(在命令工具/shell工具/xterm 的命令层次上):

wish < rtn >

结果看起来将象:   wish 主窗口被放置在调用它的 xterm 中。注意在 Xterm 中的命令行提示已经变成了 wish 提示。

象其他基于工具箱的 X Window 系统一样， Tk 的图形用户界面的建造块由组件类(例如 按钮，滚动条) 和建立并操纵它们的函数(方法)组成。一个 Tk 应用由位于一个单一的主窗口中的组件的层次构成，(如上图)。 主窗口唯一的被用一个"."来参照(refer)。并且所有的其他组件有一个反映它们在层次中位置的名字。 

在 wish 提示上键入 

button .b -text "Press ME" -command exit < rtn >

你将得到:

.b
%
键入
%pack .b < rtn >
结果将是 :

给 wish 的第一个命令 "button" 调用函数来建立一个按钮".b"，并被放置在主窗口"."中。命令另还指定了：

1. 按钮的标签将是 "Press Me" 并且

2. 如果用户用这个按钮交互(在它上面按鼠标左键) 那么它将调用命令 "exit"。

第二个命令 "pack" 调用几何管理器 来计算子组件".b"在父组件中的位置和大小并致使组件在显示器上出现。注意主窗口被调整大小成子组件的大小。

你可以进一步的测试这种交互模式，键入:

.b configure -background Red < rtn >

结果将是 :

上面的行调用按钮 ".b" 的 "configure" 方法来改变它的背景色成红色。按按钮退出 wish 并且提示回复成 xterm。

注意: 第 2 章Tk基础 介绍 Tk 组件的属性(attribute)和它们的值以及如何建造一个有许多组件和行为 (behaviour)的简单的组件层次。例子接着分开来介绍唯一的和强力的 Tk 命令 send。

至尽为止你被要求交互式的向 tclsh 和 wish 发出 Tcl 和 Tk 命令。然而你想要生成一个包括一组命令的脚本文件，它可以被传递给 wish (注意 wish 可以执行所有的 tcl 命令) 来解释。为此，调用你最喜好的文本编辑器(如 vi)，建立一个第一行是 #!/usr/local/bin/wish 的脚本文件。

注意: 上面的那行假定 wish 被安装在 /usr/local/bin 中。如果它位于你系统中的其他地方，为了让系统定位 wish，你应该给出适当的路径名。可参照在家务一节的“本书源代码”中描述。 

后面的行是:

button .b -text "Press Me" -command exit
pack .b

命名这个文件为 button.tcl，使它成为可执行的，键入

 
chmod u+x button.tcl < rtn >

在包含这个文件的目录中，你可以键入 button.tcl 来执行这段代码。当你这么做时，系统调用 wish shell 并把文件作为脚本传递给 wish 来解释。

结果如下:

用鼠标左键按 "Press Me" 按钮退出应用。关闭了 wish shell。注意当你用这种方式从一个文件启动一个 wish shell 时，没有 wish 命令提示出现在启动窗口中。所以你不能象前面做的那样交互式的向 wish 窗口发出进一步的 Tcl/Tk 命令。你可以与 Tcl/Tk 应用按它所预期的那样进行交互(在本实例中是简单的按按钮退出应用)。