Rexx - Interfaccia utente grafica

Per utilizzare le interfacce utente grafiche disponibili in Rexx, è necessario utilizzare 2 pacchetti, uno viene chiamato ActiveTcl e l'altro è il Rexxtkpacchetto. Insieme a questi 2 pacchetti, è possibile progettare moduli normali che possono avere pulsanti e altri controlli sui moduli.

Configurazione dell'ambiente

La prima cosa da fare è la configurazione dell'ambiente. Eseguiamo i seguenti passaggi per avere l'ambiente a posto.

Step 1 - Scarica il pacchetto Activetcl dal seguente sito Web - https://www.activestate.com/activetcl

Step 2- Il prossimo passo è avviare l'installazione di ActiveTCl. Fare clic sul pulsante Avanti sullo schermo per procedere.

Step 3 - Accetta il contratto di licenza e fai clic sul pulsante Avanti.

Step 4 - Scegli una posizione per l'installazione e fai clic sul pulsante Avanti.

Step 5 - Scegli una posizione per l'installazione della demo e fai clic sul pulsante Avanti.

Step 6 - Fare clic sul pulsante Avanti per procedere con l'installazione.

Step 7 - Fare clic sul pulsante Fine per completare l'installazione.

Step 8 - Il passaggio successivo è scaricare il software Rexxtk dal seguente collegamento - https://sourceforge.net/projects/rexxtk/

Step 9- Fare doppio clic sul file di installazione dal collegamento nel passaggio precedente per avviare l'installazione. Fare clic sul pulsante Avanti per procedere.

Step 10 - Nella schermata successiva, fare clic sul pulsante Sì per accettare il contratto di licenza.

Step 11 - Nella schermata successiva, scegli il percorso per l'installazione e fai clic sul pulsante Avanti.

Step 12 - Scegli la posizione della cartella del programma e fai clic sul pulsante Avanti.

Una volta completata l'installazione, possiamo ora iniziare con la programmazione della GUI in Rexx.

Programma base

Vediamo come possiamo progettare un semplice programma di base con Rexx in un formato di interfaccia utente grafica.

Esempio

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

Le seguenti cose devono essere annotate sul programma di cui sopra:

La libreria Rexxtk e tutte le sue funzioni vengono caricate utilizzando il comando RxFuncAdd.
Il ciclo do forever manterrà la finestra aperta e attenderà l'input dell'utente.
Una volta rilevato l'input dell'utente, il programma verrà chiuso.

Quando il programma di cui sopra viene eseguito, otterrai il seguente output.

Creazione di menu

I menu vengono creati con l'aiuto delle funzioni TkMenu e TkAdd. La sintassi di queste funzioni è fornita di seguito.

Sintassi

TkMenu(widgetname,options,0)

Parametri

Widgetname - Un nome da dare al menu.

Le opzioni possono essere una delle seguenti:

selectcolor - Se le caselle di controllo oi pulsanti di opzione vengono utilizzati come opzioni di menu, questa opzione specifica il colore da scegliere quando viene selezionata un'opzione di menu.
tearoff - Questa opzione viene utilizzata per aggiungere sottomenu al menu principale.
title - La stringa che deve essere utilizzata per dare un titolo alla finestra.

Valore di ritorno

Una maniglia per il menu creato.

Esempio

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

Le seguenti cose devono essere annotate sul programma di cui sopra:

La barra dei menu viene creata utilizzando la funzione TkMenu. Il parametro "strappo" significa che dobbiamo creare dei sottomenu che verranno allegati al menu principale.
Aggiungiamo quindi 2 opzioni di menu chiamate File e Apri utilizzando la funzione TkAdd.

Quando il programma di cui sopra viene eseguito, otterrai il seguente output.