Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
use Tk;
...
$mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;

MainLoop;
  2. or download this
    sub addOptions
{
...
}
$w->configure('-width' => $width);
}