Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Tk question

by batkins (Chaplain)
on Nov 13, 2003 at 22:49 UTC ( [id://306959] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $win->Button(-text => 'OK', -command => [\&ok, $win])->pack;
    
  2. or download this
    sub ok
    {
    ...
      $win->destroy;
      $notified = 1;
    }