Help for this page

Select Code to Download


  1. or download this
        my $button1 = $mw->Button(-text => 'Quit', 
                                 -command => \&exit);
    
  2. or download this
        my $button2 = $mw->Button(-text => 'Quit', 
                               -command => \&my_sub);
    ...
        sub my_sub {
          print "Someone clicked me!\n";
        }