Tengo el siguiente código.
Using perl Syntax Highlighting
- use Tk;
- $ventana = MainWindow->new(-cursor => "crosshair"); #Primero creamos lo necesario
- $ventana->geometry("800x400+400+800"); #Declaramos el tamaño de la ventana
- $ventana->title("Formulario"); #Titulo de la ventana
- $ventana->Label(-text => "Llena los datos necesarios")->pack(); #Aca ponemos el texto hola mundo
- $ventana->Label()->pack(); # Espacio
- $ventana->Label()->pack(); # Espacio
- my $text = $ventana->Scrolled("Text")->pack();
- $ventana->Label()->pack(); # Espacio
- $ventana->Label()->pack(); # Espacio
- $ventana->Button(-text => "Enviar", -command => \&decime )->pack();
- MainLoop;
- sub decime {
- my $nombre = $text->get();
- $ventana->Label()->pack(); # Espacio
- $ventana->Label()->pack(); # Espacio
- $ventana->Label(-text => "ESCRIBISTE $nombre")->pack(); #Texto
- } #Fin de decime
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Pero mi duda es cómo recibo lo que hay en la caja de texto grande que tiene el valor de $text porque como resultado no recibo nada.
¿Alguien me podría ayudar?
