使用 Tcl 来组织桌面

核心提示： frame 命令创建了一个称为 .rc 的窗口，其边界宽度为 2 个像素，使用 Tcl 来组织桌面(4)，wm 命令告诉基础窗口管理器使用 PageTitle 对最前面的窗口（. 通常表示最前面）进行命名，接下来的 wm 命令禁止用户调整其大小，最后，它将文章的目录作为当前的工作目录，然后

frame 命令创建了一个称为 .rc 的窗口，其边界宽度为 2 个像素。wm 命令告诉基础窗口管理器使用 PageTitle 对最前面的窗口（. 通常表示最前面）进行命名，接下来的 wm 命令禁止用户调整其大小。然后对两个按钮进行了定义，并将它们放入到水平的网格中。

按钮代码

IBM 提供了一段程序来将文章（以 XML 格式编写）转换为外观类似于 developerWorks 站点这样的 Web 页面 (HTML)。当您单击同名的按钮时，rebuild-article 过程调用了这段脚本。在该脚本运行结束后，将显示一个对话框，用以描述将 XML 转换为 HTML 的过程中所进行的操作，其中包括相应的错误消息（如果有的话）。如果这段程序告诉您已经创建了 index.html 文件，那么您可以单击 OK，让浏览器获得焦点，并刷新页面以查看新的文档：

proc rebuild-article {} {
　exec ./dw-transform.sh &
}

启动代码

在启动代码中，wm geometry . =336x32+0+707 将桌面扩展窗口放置在 1024 x 768 桌面的底部。然后，该段代码打开了一个对话框，它允许您选择需要进行转换的文章。最后，它将文章的目录作为当前的工作目录，并启动编辑器 (nedit)、xterm (konsole) 和浏览器 (Opera)。在任务开始执行前对所有的这些内容进行正确的配置：

wm geometry . =336x32+0+707
set dir ""
while {$dir == ""} {
　set dir [tk_chooseDirectory
　　　　　 -initialdir $InitDir
　　　　　 -title $ChooseDir]
}
cd $dir
exec nedit -geometry 150x48+0+0 index.xml &
exec konsole &
exec opera -geometry 1024x680+0+0 index.html &