Help for this page

Select Code to Download


  1. or download this
    my %after = (
  $NIC => $O1,
...
  $O6 => $Save,
);
$mw->bind('all','<Tab>',sub{($after{$_[0]})->focus;Tk::break()});
  2. or download this
    #!/usr/bin/perl
use strict;
...
  $errW->configure(-text=>'');
  $ref->{$id}{'entry'}->configure(-bg=>$ref->{$id}{'bg'});
}