programming-examples/perl/GUI/Pass subroutine to button and get called when clicking.pl

18 lines
256 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
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;
}