Rexx - graficzny interfejs użytkownika

Aby skorzystać z graficznych interfejsów użytkownika dostępnych w Rexx, należy skorzystać z 2 pakietów, z których jeden to tzw ActiveTcl a drugi to Rexxtkpakiet. Wraz z tymi 2 pakietami można zaprojektować zwykłe formularze, które mogą mieć przyciski i inne kontrolki na formularzach.

Konfiguracja środowiska

Pierwszą rzeczą do zrobienia jest konfiguracja środowiska. Przejdźmy przez następujące kroki, aby przygotować środowisko.

Step 1 - Pobierz pakiet Activetcl z następującej strony internetowej - https://www.activestate.com/activetcl

Step 2- Następnym krokiem jest rozpoczęcie instalacji ActiveTCl. Kliknij przycisk Dalej na ekranie, aby kontynuować.

Step 3 - Zaakceptuj umowę licencyjną i kliknij przycisk Dalej.

Step 4 - Wybierz miejsce instalacji i kliknij następny przycisk.

Step 5 - Wybierz miejsce instalacji wersji demonstracyjnych i kliknij przycisk Dalej.

Step 6 - Kliknij przycisk Dalej, aby kontynuować instalację.

Step 7 - Kliknij przycisk Zakończ, aby zakończyć instalację.

Step 8 - Następnym krokiem jest pobranie oprogramowania Rexxtk z poniższego linku - https://sourceforge.net/projects/rexxtk/

Step 9- Kliknij dwukrotnie plik instalatora z łącza w poprzednim kroku, aby rozpocząć instalację. Kliknij następny przycisk, aby kontynuować.

Step 10 - Na następnym ekranie kliknij przycisk Tak, aby zaakceptować umowę licencyjną.

Step 11 - Na następnym ekranie wybierz lokalizację instalacji i kliknij przycisk Dalej.

Step 12 - Wybierz lokalizację folderu programu i kliknij następny przycisk.

Po zakończeniu instalacji możemy teraz rozpocząć programowanie GUI w Rexx.

Program podstawowy

Zobaczmy, jak możemy zaprojektować prosty program podstawowy za pomocą Rexx w formacie graficznego interfejsu użytkownika.

Przykład

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

Na temat powyższego programu należy zwrócić uwagę na następujące kwestie -

  • Biblioteka Rexxtk i wszystkie jej funkcje są ładowane za pomocą polecenia RxFuncAdd.

  • Pętla do forever pozostawi okno otwarte i będzie czekać na wejście użytkownika.

  • Po wykryciu danych wejściowych użytkownika program zakończy działanie.

Po wykonaniu powyższego programu otrzymasz następujące dane wyjściowe.

Tworzenie menu

Menu są tworzone za pomocą funkcji TkMenu i TkAdd. Składnię tych funkcji podano poniżej.

Składnia

TkMenu(widgetname,options,0)

Parametry

Widgetname - Nazwę, którą należy nadać menu.

Opcje mogą być dowolnymi z następujących -

  • selectcolor - jeśli pola wyboru lub przyciski opcji są używane jako opcje menu, wówczas ta opcja określa kolor do wyboru po wybraniu dowolnej opcji menu.

  • tearoff - Ta opcja służy do dodawania podmenu do menu głównego.

  • title - ciąg, którego należy użyć, aby nadać oknu tytuł.

Wartość zwracana

Uchwyt do utworzonego menu.

Przykład

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

Na temat powyższego programu należy zwrócić uwagę na następujące kwestie -

  • Pasek menu jest tworzony za pomocą funkcji TkMenu. Parametr „tearoff” oznacza, że ​​musimy stworzyć podmenu, które zostanie dołączone do menu głównego.

  • Następnie dodajemy 2 opcje menu o nazwie Plik i Otwórz za pomocą funkcji TkAdd.

Po wykonaniu powyższego programu otrzymasz następujące dane wyjściowe.