Mega Code Archive

 

Categories / Perl / GUI

 

Call Text insert function to add text to a Text control

use Tk; $main = MainWindow->new(); $main->Button( -text => "Click Me!",                -command => \&display )->pack; $text1 = $main->Text ('-width'=> 40, '-height' => 2 )->pack; sub display {     $text1->insert('end', "Hello!"); } MainLoop;