Foro - Perl en Español

por **BigBear** » 2012-02-25 16:51 @743

Hola. Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use Tk;
 
my $ve = MainWindow->new();
$ve->geometry("300x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");
 
my $body = $ve->Text()->place(-x=>50,-y=>50);
$body->insert("end",">");
 
$ve->bind($body,"<Enter>"=> sub {
print "yeah\n";
});
 
MainLoop;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que me aparece yeah a cada momento, y solo me tendría que aparecer cuando le dé el enter.

¿ Alguien me puede ayudar a corregir el código ?

use Tk;
 
my $ve = MainWindow->new();
$ve->geometry("300x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");
 
my $body = $ve->Text()->place(-x=>50,-y=>50);
$body->insert("end","<controltotal>");
 
$ve->bind($body,"<Key-Return>"=> sub {
 
$body->insert("end","\n\n<controltotal>");
 
$text = $body->get( "1.0", "end" );
chomp $text;
 
$body->insert("end","\n$text");
 
});
 
 
MainLoop;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mi idea es poder capturar el último comando escrito de controltotal, algo así como funcionan las consolas MSDOS o la de Linux, para después mostrar el último contenido en la misma tabla.
El problema es que no se como hacerlo.

¿ Alguien me puede ayudar ?

Foro - Perl en Español

Detectar tecla Entrar en Tk

Detectar tecla Entrar en Tk

Publicidad

Re: Detectar tecla Entrar en Tk

Re: Detectar tecla Entrar en Tk

Re: Detectar tecla Entrar en Tk

¿Quién está conectado?