使用 Tcl 来组织桌面

核心提示： 您可以按下鼠标左键从屏幕搜集这段代码，并搜集其中的所有内容，使用 Tcl 来组织桌面(3)，然后启动您最喜爱的编辑器，单击鼠标中键将这段文本粘贴到编辑器中，通常是一个很好的编程习惯：#!/usr/bin/wish -f# 1 -- How should it look?set PageTi

您可以按下鼠标左键从屏幕搜集这段代码，并搜集其中的所有内容。然后启动您最喜爱的编辑器，单击鼠标中键将这段文本粘贴到编辑器中。将文件保存为 article.tcl，并使用 chmod 命令使其具有可执行权限：

$ chmod +x article.tcl

因为窗口管理器和硬件可能有所不同，甚至可能没有鼠标中键，所以这里的说明可能与您所需要的并不完全相同。在这种情况下，您可以找人提供帮助。

下一部分将对该程序中的部分内容进行研究。

变量

代码的第一部分中使用了传统的 UNIX #! 字符串来运行名为 wish 的 Tcl/Tk 解释器。-f 开关告诉 wish 运行该脚本，然后退出。

在这之后是一段注释，用 # 表示，以 How should it look? 作为代码块的开始，紧随其后对字符串变量进行了设置。像这样将文本安排在代码的上方，通常是一个很好的编程习惯：

#!/usr/bin/wish -f
# 1 -- How should it look?
set PageTitle "IBM developerWorks Articles -- Studio B"
set InitDir "/home/bill/StudioB/developerworks"
set ChooseDir "Choose an Article Directory"

Tk GUI 代码

这一小块代码创建了一个带有两个并排的按钮的窗口。就简洁性而言，在定义窗口和小部件方面，很难有能够超过 Tk 的：

frame .rc -borderwidth 2
wm title . $PageTitle
wm resizable . 0 0
button .rc.b -width 20 -text "Rebuild Article" -command {rebuild-article}
button .rc.c -width 20 -text "Exit" -command {exit}
pack .rc
pack .rc.b
pack .rc.c
grid .rc.b .rc.c -sticky ew