Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use Tk;
use Tk::DialogBox;
...
         )->pack;

MainLoop;
  2. or download this
    ...
$InfoWindow->add("Label", -text => "Output: $output")->pack;
...
$InfoWindow->Show();
$InfoWindow->destroy;