¿Cómo hacer un cuadro de diálogo X11 rápido en Perl

Los cuadros de diálogo se utilizan en aplicaciones informáticas para comunicar la información a los usuarios, o para interactuar con los usuarios. Un ejemplo típico de un cuadro de diálogo es una ventana emergente que aparece al hacer clic en un botón o realizar una acción durante el uso de un programa. Estos por lo general tienen un mensaje y un botón de " Aceptar " y " Cancelar" se hace clic para pasar su consentimiento, o falta de ella , de vuelta a la aplicación. El sistema operativo de X-Windows ( X11 ) en UNIX soporta cuadros de diálogo en Perl a través del marco Tk , que es una interfaz gráfica de usuario ( GUI ) del sistema que se extiende la funcionalidad del lenguaje de programación Perl , lo que simplifica la codificación de los cuadros de diálogo . Instrucciones
1

Inicie su aplicación de edición de Perl. Un editor de texto simple será suficiente , siempre que guarde el archivo con la extensión " . Pl" , ya que esto le indica al sistema que el archivo es un programa Perl.
2

Tipo de la cabecera del programa Perl y poner en marcha un nuevo programa, incluyendo el " Tk :: DialogBox " módulo mediante la colocación de las líneas siguientes al principio del archivo :

# /bin /perl- w

uso Tk ; use Tk :: DialogBox ;

$ mi principal = MainWindow -> nuevo ;
3

Crear un " sí /no " caja simple, rápida diálogo escribiendo el código siguiente en el editor:

$ dialog = $ main -> DialogBox ( -title = > " Escriba su título aquí" , los botones = > [" Sí" , "No" ] ) ;

Esto le dará un cuadro de diálogo con dos botones, uno con la etiqueta " Sí " y el otro con la etiqueta " No."
4

Añadir un mensaje al botón mediante una etiqueta , escriba el código siguiente en el editor:

$ dialog- > add ( , - texto " Escriba su etiqueta /mensaje aqui " = > $ _ [ 0 ] ) -> paquete ;
5

Muestra el cuadro de diálogo , escriba el código siguiente en el editor:

$ Button_Clicked = $ dialog- > Show ( ) ;
6 < p> Ingrese cualquier código necesario para el proceso que debe llevarse a cabo cuando el usuario hace clic en el botón " Yes" o " No":

if ($ Button_Clicked eq " Sí ") { código si "Yes " la opción elegida } elsif ($ Button_Clicked eq" No ") { código si " opción No " se elige } else {código de gestión de errores va aquí }