Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Tk;
...
 });

MainLoop;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
$mw->Label(-image => $image)->pack(-expand => 1, -fill => 'both');
$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;
MainLoop;
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
$mw->Label(-image => $image)->pack(-expand => 1, -fill => 'both');
$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;
MainLoop;
  4. or download this
    #!/usr/bin/perl
use Tk;
...