Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict;
...

$main_window->WidgetDump if @ARGV;
Tk::MainLoop();
  2. or download this
    #!/usr/bin/perl --
use strict;
...

Tk::MainLoop();