Mega Code Archive

 

Categories / Perl / GUI

 

Set Button action command

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