Rexx - Antarmuka Pengguna Grafis

Untuk menggunakan antarmuka pengguna grafik yang tersedia di Rexx, seseorang perlu menggunakan 2 paket, yang satu disebut ActiveTcl dan yang lainnya adalah Rexxtkpaket. Bersama dengan 2 paket ini, seseorang dapat mendesain formulir normal yang dapat memiliki tombol dan kontrol lain pada formulir.

Pengaturan Lingkungan

Hal pertama yang harus dilakukan adalah pengaturan lingkungan. Mari kita lakukan langkah-langkah berikut untuk menerapkan lingkungan.

Step 1 - Unduh paket Activetcl dari situs web berikut - https://www.activestate.com/activetcl

Step 2- Langkah selanjutnya adalah memulai penginstalan ActiveTCl. Klik tombol Next di layar untuk melanjutkan.

Step 3 - Terima Perjanjian Lisensi dan klik tombol Berikutnya.

Step 4 - Pilih lokasi untuk penginstalan dan klik tombol berikutnya.

Step 5 - Pilih lokasi untuk memasang demo dan klik tombol Berikutnya.

Step 6 - Klik tombol Berikutnya untuk melanjutkan penginstalan.

Step 7 - Klik tombol Selesai untuk menyelesaikan penginstalan.

Step 8 - Langkah selanjutnya adalah mengunduh perangkat lunak Rexxtk dari tautan berikut - https://sourceforge.net/projects/rexxtk/

Step 9- Klik dua kali file penginstal dari tautan di langkah sebelumnya untuk memulai penginstalan. Klik tombol selanjutnya untuk melanjutkan.

Step 10 - Di layar berikutnya, klik tombol Ya untuk menyetujui Perjanjian Lisensi.

Step 11 - Di layar berikutnya, pilih lokasi untuk penginstalan dan klik tombol Berikutnya.

Step 12 - Pilih lokasi folder Program dan klik tombol berikutnya.

Setelah penginstalan selesai, sekarang kita dapat mulai dengan memprogram GUI di Rexx.

Program Dasar

Mari kita lihat bagaimana kita dapat merancang program dasar sederhana dengan Rexx dalam format antarmuka pengguna grafis.

Contoh

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

Hal-hal berikut perlu diperhatikan tentang program di atas -

Pustaka Rexxtk dan semua fungsinya dimuat menggunakan perintah RxFuncAdd.
Perulangan do forever akan membuat jendela tetap terbuka dan akan menunggu input pengguna.
Setelah input pengguna terdeteksi, program akan keluar.

Ketika program di atas dijalankan, Anda akan mendapatkan output sebagai berikut.

Membuat Menu

Menu dibuat dengan bantuan fungsi TkMenu dan TkAdd. Sintaks dari fungsi-fungsi ini diberikan di bawah ini.

Sintaksis

TkMenu(widgetname,options,0)

Parameter

Widgetname - Nama untuk diberikan ke menu.

Opsinya dapat berupa salah satu dari yang berikut -

selectcolor - jika kotak centang atau tombol radio digunakan sebagai opsi menu, maka opsi ini menetapkan warna yang akan dipilih saat opsi menu apa pun dipilih.
tearoff - Opsi ini digunakan untuk menambahkan sub menu ke menu utama.
title - String yang perlu digunakan untuk memberi judul pada jendela.

Nilai Kembali

Sebuah pegangan ke menu dibuat.

Contoh

/* 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

Hal-hal berikut perlu diperhatikan tentang program di atas -

Bar menu dibuat menggunakan fungsi TkMenu. Parameter 'tearoff' artinya kita perlu membuat sub menu yang akan dilampirkan ke menu utama.
Kami kemudian menambahkan 2 opsi menu yang disebut File dan Buka menggunakan fungsi TkAdd.

Ketika program di atas dijalankan, Anda akan mendapatkan output sebagai berikut.