home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Widget / Unbusy.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  432 b   |  21 lines
  1. # NOTE: Derived from blib\lib\Tk\Widget.pm.  Changes made here will be lost.
  2. package Tk::Widget;
  3.  
  4. sub Unbusy
  5. {
  6.  my ($w) = @_;
  7.  $w->grabRelease;
  8.  my $old = delete $w->{'Busy'};
  9.  if (defined $old)
  10.   {
  11.    my $grab = delete $old->{'grab'};
  12.    $w->update;  # flush events that happened with Busy bindings
  13.    $w->bindtags(delete $old->{'bindtags'});
  14.    $w->Tk::configure(%{$old}); 
  15.    $w->update;
  16.    &$grab;
  17.   }
  18. }
  19.  
  20. 1;
  21.