Set Button action command : Button « GUI « Perl






  1. Perl
  2. GUI
  3. Button

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