Help for this page

Select Code to Download


  1. or download this
    #! /usr/local/bin/perl

...
$::mainwin = MainWindow->new (-background => '#b5bfcc');
$::mainwin->title('MWeb Preprocessing System');
$::mainwin->geometry("-200-200");
  2. or download this
    $::winheading = $::mainwin->Label
(
...

$::mainwin->bind('<Return>' => [$::beginbutton => 'Invoke']);
  3. or download this
    Tk::MainLoop;
  4. or download this
    #MainSub
sub MainSub
...


1;