Using perl Syntax Highlighting
- use Tk;
- my $she = MainWindow->new(-background=>"black");
- $she->title("Dumping data with limit");
- $she->resizable(0,0);
- $she->geometry("400x400+20+20");
- $she->Label(-background=>"black",-foreground=>"yellow",-text=>"Your text",-font=>"Impact")->pack();
- my $todo = $she->Text(-foreground=>"yellow",-background=>"black",-width=> 45,-height=> 15)->pack();
- $she->Button(-background=>"black",-foreground=>"yellow",-activebackground=>"yellow",-text=>"Mandar",-command=>\&enviar)->pack(-fill=>"both");
- MainLoop;
- sub enviar {
- $imp = $todo->get;
- print $imp;
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Pero no recibo nada cuando quiero que se imprima el texto de la Text. ¿Alguien me podría decir con qué método puedo hacer lo que quiero?
