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'});
    }