Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w

...
              -command => sub {exit 1}
             )->pack(-side => 'left', -expand => 1);
Tk::MainLoop();
  2. or download this
    #! /usr/bin/perl -w

...
              -command => sub {exit 1}
             )->pack(-side => 'left', -expand => 1);
Tk::MainLoop();
  3. or download this
    Callback called exit.
Callback called exit.