Pass value to a subroutine in button action : Button « GUI « Perl






Pass value to a subroutine in button action

   

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 subroutine to button and get called when clicking
4.Set Button action command
5.Load and save text file
6.Link a subroutine with a button action