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 0Na 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 0Na 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.
