Help for this page

Select Code to Download


  1. or download this
    #!perl -slw
    
    ...
          '-command' => sub {$mw->destroy})->pack();
    
    $mw->MainLoop;