Help for this page

Select Code to Download


  1. or download this
    my $input = $mw->Entry (-text => "",)->form;
    $input->focus;
    $input->bind('<Return>', \&enter);
    
  2. or download this
    sub enter{
       ......
    ...
      $input->delete(0,'end');
    }