33 lines
603 B
Perl
33 lines
603 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use Tk;
|
||
|
|
|
||
|
|
|
||
|
|
$side = "top";
|
||
|
|
|
||
|
|
$Tk::strictMotif = 1;
|
||
|
|
|
||
|
|
$main = MainWindow->new();
|
||
|
|
|
||
|
|
$button1 = $main->Button(-text => "Button 1",
|
||
|
|
-command => \&exit_button);
|
||
|
|
|
||
|
|
$button1->pack(-side=>$side);
|
||
|
|
|
||
|
|
$button2 = $main->Button(-text => "Button 2",
|
||
|
|
-command => \&exit_button);
|
||
|
|
|
||
|
|
$button2->pack(-side=>$side);
|
||
|
|
|
||
|
|
$button3 = $main->Button(-text => "Button 3",
|
||
|
|
-command => \&exit_button);
|
||
|
|
|
||
|
|
$button3->pack(-side=>$side);
|
||
|
|
|
||
|
|
MainLoop();
|
||
|
|
|
||
|
|
sub exit_button {
|
||
|
|
print "You pushed the button!\n";
|
||
|
|
exit;
|
||
|
|
}
|