Set Button action command : Button « GUI « Perl






Set Button action command

   

use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;

MainLoop;

   
    
    
  








Related examples in the same category

1.Your first Perl/Tk program
2.Adding button (control) to a window
3.Pass subroutine to button and get called when clicking
4.Pass value to a subroutine in button action
5.Load and save text file
6.Link a subroutine with a button action