Using perl Syntax Highlighting
- my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
- $mejor->bind($body,"<Key-Return>"=> sub {
- print "al fin\n";
- });
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
