Rexx - Interfaz gráfica de usuario

Para utilizar las interfaces gráficas de usuario disponibles en Rexx, es necesario utilizar 2 paquetes, uno se llama ActiveTcl y el otro es el Rexxtkpaquete. Junto con estos 2 paquetes, se pueden diseñar formularios normales que pueden tener botones y otros controles en los formularios.

Configuración del entorno

Lo primero que debe hacer es la configuración del entorno. Repasemos los siguientes pasos para tener el entorno en su lugar.

Step 1 - Descargue el paquete Activetcl del siguiente sitio web - https://www.activestate.com/activetcl

Step 2- El siguiente paso es iniciar la instalación de ActiveTCl. Haga clic en el botón Siguiente en la pantalla para continuar.

Step 3 - Acepte el Acuerdo de licencia y haga clic en el botón Siguiente.

Step 4 - Elija una ubicación para la instalación y haga clic en el botón siguiente.

Step 5 - Elija una ubicación para la instalación de las demostraciones y haga clic en el botón Siguiente.

Step 6 - Haga clic en el botón Siguiente para continuar con la instalación.

Step 7 - Haga clic en el botón Finalizar para completar la instalación.

Step 8 - El siguiente paso es descargar el software Rexxtk desde el siguiente enlace - https://sourceforge.net/projects/rexxtk/

Step 9- Haga doble clic en el archivo de instalación del enlace del paso anterior para iniciar la instalación. Haga clic en el botón siguiente para continuar.

Step 10 - En la siguiente pantalla, haga clic en el botón Sí para aceptar el Acuerdo de licencia.

Step 11 - En la siguiente pantalla, elija la ubicación para la instalación y haga clic en el botón Siguiente.

Step 12 - Elija la ubicación de la carpeta del programa y haga clic en el botón siguiente.

Una vez que se completa la instalación, ahora podemos comenzar con la programación de las GUI en Rexx.

Programa básico

Veamos cómo podemos diseñar un programa básico simple con Rexx en un formato de interfaz gráfica de usuario.

Ejemplo

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

Se deben tener en cuenta las siguientes cosas sobre el programa anterior:

  • La biblioteca Rexxtk y todas sus funciones se cargan mediante el comando RxFuncAdd.

  • El bucle do forever mantendrá la ventana abierta y esperará la entrada del usuario.

  • Una vez que se detecta la entrada del usuario, el programa se cerrará.

Cuando se ejecuta el programa anterior, obtendrá el siguiente resultado.

Creación de menús

Los menús se crean con la ayuda de las funciones TkMenu y TkAdd. La sintaxis de estas funciones se muestra a continuación.

Sintaxis

TkMenu(widgetname,options,0)

Parámetros

Widgetname - Un nombre para darle al menú.

Las opciones pueden ser cualquiera de las siguientes:

  • selectcolor - si se utilizan casillas de verificación o botones de opción como opciones de menú, esta opción especifica el color a elegir cuando se selecciona cualquier opción de menú.

  • tearoff - Esta opción se utiliza para agregar submenús al menú principal.

  • title - La cadena que debe usarse para darle un título a la ventana.

Valor devuelto

Una manija para el menú creado.

Ejemplo

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

Se deben tener en cuenta las siguientes cosas sobre el programa anterior:

  • La barra de menú se crea utilizando la función TkMenu. El parámetro 'tearoff' significa que necesitamos crear submenús que se adjuntarán al menú principal.

  • Luego agregamos 2 opciones de menú llamadas Archivo y Abrir usando la función TkAdd.

Cuando se ejecuta el programa anterior, obtendrá el siguiente resultado.