Rexx - 图形用户界面

---

---

为了使用 Rexx 中提供的图形用户界面，需要使用 2 个包，一个是 ActiveTcl，另一个是 Rexxtk 包。除了这两个包之外，还可以设计普通的表单，这些表单可以在表单上包含按钮和其他控件。

环境设置

首先要做的是环境设置。让我们按照以下步骤来设置环境。

步骤 1 - 从以下网站下载 Activetcl 包：https://www.activestate.com/activetcl

步骤 2 - 下一步是开始安装 ActiveTCl。点击屏幕上的“下一步”按钮继续。

步骤 3 - 接受许可协议并点击“下一步”按钮。

步骤 4 - 选择安装位置并点击“下一步”按钮。

步骤 5 - 选择演示安装位置并点击“下一步”按钮。

步骤 6 - 点击“下一步”按钮继续安装。

步骤 7 - 点击“完成”按钮完成安装。

步骤 8 - 下一步是从以下链接下载 Rexxtk 软件：https://sourceforge.net/projects/rexxtk/

步骤 9 - 双击上一步链接中的安装文件以启动安装。点击“下一步”按钮继续。

步骤 10 - 在下一个屏幕中，点击“是”按钮以同意许可协议。

步骤 11 - 在下一个屏幕中，选择安装位置并点击“下一步”按钮。

步骤 12 - 选择程序文件夹位置并点击“下一步”按钮。

安装完成后，我们就可以开始在 Rexx 中编写 GUI 程序了。

基本程序

让我们看看如何在图形用户界面格式中使用 Rexx 设计一个简单的基本程序。

示例

/* Main program */ 
call RxFuncAdd 'TkLoadFuncs','rexxtk','TkLoadFuncs' 
call TkLoadFuncs 
do forever 
   interpret 'Call' TkWait() 
end 
call TkDropFuncs 
exit 0 

关于上述程序，需要注意以下几点：

• Rexxtk 库及其所有函数都使用 RxFuncAdd 命令加载。

• do forever 循环将保持窗口打开并等待用户输入。

• 检测到用户输入后，程序将退出。

执行上述程序后，您将获得以下输出。

创建菜单

菜单是在 TkMenu 和 TkAdd 函数的帮助下创建的。这些函数的语法如下所示。

语法

TkMenu(widgetname,options,0) 

参数

Widgetname - 为菜单指定一个名称。

选项可以是以下任何一个：

• selectcolor - 如果复选框或单选按钮用作菜单选项，则此选项指定选择任何菜单选项时要选择的颜色。

• tearoff - 此选项用于向主菜单添加子菜单。

• title - 需要用来为窗口指定标题的字符串。

返回值

创建的菜单的句柄。

示例

/* Main program */ 
call RxFuncAdd 'TkLoadFuncs','rexxtk','TkLoadFuncs' 
call TkLoadFuncs 

menubar = TkMenu('.m1') 
filemenu = TkMenu('.m1.file','-tearoff', 0) 
call TkAdd menubar, 'cascade', '-label', 'File', '-menu', filemenu 
call TkAdd filemenu, 'command', '-label', 'Open...', '-rexx', 'getfile' 
call TkConfig '.', '-menu', menubar 

do forever 
   interpret 'Call' TkWait() 
end 
call TkDropFuncs 
exit 0

关于上述程序，需要注意以下几点：

• 菜单栏是使用 TkMenu 函数创建的。“tearoff”参数表示我们需要创建将附加到主菜单的子菜单。

• 然后，我们使用 TkAdd 函数添加了两个名为“文件”和“打开”的菜单选项。

执行上述程序后，您将获得以下输出。