Foro - Perl en Español

por **BigBear** » 2012-03-01 12:04 @544

Tengo un problema con el siguiente código. El problema es que tengo una ventana que tiene un botón, el cual abre otra ventana que es como un formulario; en el formulario tienes que poner una palabra y después con un botón del formulario se muestra la variable por pantalla. El problema es que no se puede cargar el segundo formulario dos veces para mostrar la variable del segundo formulario porque aparece un error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tk;
 
my $new = MainWindow->new();
$new->Button( -text => "aca", -command => \&testar )->pack();
 
MainLoop;
 
sub testar {
 
    my $add = MainWindow->new();
    $add->geometry("350x90+20+20");
    $add->resizable( 0, 0 );
 
    $add->Label( -text => "test : " )->place( -x => 10, -y => 30 );
    my $ew = $add->Entry( -width => 33 )->place( -y => 33, -x => 60 );
    $add->Button( -text => "yea", -command => \&ax )->place( -y => 33, -x => 275 );
 
    sub ax {
        print $ew->get;
    }
 
}
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿ Alguien me puede ayudar ?

Tk::Error: not a Tk object

 Tk::die_with_trace at C:/Perl/lib/Tk.pm line 252

 Tk::__ANON__ at D:\Mis documentos NO BORRAR\Desktop\Leviatan\probando\Warfactor

 VI\hackthegame\errortk.pl line 19

 main::ax at C:/Perl/lib/Tk.pm line 252

 (eval) at C:/Perl/lib/Tk.pm line 252

 Tk::__ANON__ at C:/Perl/lib/Tk/Button.pm line 111

 Tk::Button::butUp at C:/Perl/lib/Tk.pm line 411

 (eval) at C:/Perl/lib/Tk.pm line 411

 Tk::MainLoop at D:\Mis documentos NO BORRAR\Desktop\Leviatan\probando\Warfactor

 VI\hackthegame\errortk.pl line 6

 Tk callback for .button

 Tk::__ANON__ at C:/Perl/lib/Tk.pm line 252

 Tk::Button::butUp at C:/Perl/lib/Tk/Button.pm line 111

 <ButtonRelease-1>

 (command bound to event)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Formulario en Tk

Formulario en Tk

Publicidad

Re: Formulario en Tk

Re: Formulario en Tk

¿Quién está conectado?