Rexx-グラフィカルユーザーインターフェイス

Rexxで利用可能なグラフィックユーザーインターフェイスを使用するには、1つは ActiveTcl と呼ばれ、もう1つは Rexxtk パッケージと呼ばれる2つのパッケージを使用する必要があります。これらの2つのパッケージに加えて、フォーム上のボタンやその他のコントロールを持つことができる通常のフォームを設計できます。

環境設定

最初に行うことは、環境のセットアップです。次の手順を実行して、環境を整えましょう。

ステップ1 *-次のWebサイトからActivetclパッケージをダウンロードします-https://www.activestate.com/activetcl

アクティブ状態

ステップ2 *-次のステップは、ActiveTClのインストールを開始することです。画面の[次へ]ボタンをクリックして続行します。

アクティブTCIのインストール

ステップ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 -チェックボックスまたはラジオボタンがメニューオプションとして使用される場合、このオプションはメニューオプションが選択されたときに選択する色を指定します。
ティアオフ-このオプションは、メインメニューにサブメニューを追加するために使用されます。
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