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 函式添加了兩個名為“檔案”和“開啟”的選單選項。

執行上述程式後，您將獲得以下輸出。