Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl5 -w

...

my $row1 = $main->Frame(-background => 'cyan',)->pack(-side => 'top', 
+-fill => 'x');
  2. or download this
    
################### Labels ###################
...
    $main->messageBox(-icon => 'error', -message => 'Invalid part numb
+er!', -title => 'Error', -type => 'Ok');
    $main->focusCurrent;
}