Mega Code Archive

 

Categories / Perl / GUI

 

Adding button (control) to a window

use Tk; my $main = MainWindow->new; $main->Button(-text => 'End',     -command => [$main => 'destroy'] )->pack; MainLoop;