Pass subroutine to button and get called when clicking : Button « GUI « Perl






  1. Perl
  2. GUI
  3. Button

Pass subroutine to button and get called when clicking

   

use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'Hello',
    -command => [\&printem, "Hello\n"]
)->pack;

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

MainLoop;

sub printem
{
    print shift;
}








Related examples in the same category

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