home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Scrollbar / ButtonUp.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  598 b   |  23 lines
  1. # NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.  Changes made here will be lost.
  2. package Tk::Scrollbar;
  3.  
  4. # tkScrollButtonUp --
  5. # This procedure is invoked when a button is released in a scrollbar.
  6. # It cancels scans and auto-repeats that were in progress, and restores
  7. # the way the active element is displayed.
  8. #
  9. # Arguments:
  10. # w -        The scrollbar widget.
  11. # x, y -    Mouse coordinates.
  12.  
  13. sub ButtonUp
  14. {my $w = shift;
  15.  my $e = $w->XEvent;
  16.  $w->CancelRepeat;
  17.  $w->configure("-activerelief" => "raised");
  18.  $w->EndDrag($e->x,$e->y);
  19.  $w->activate($w->identify($e->x,$e->y));
  20. }
  21.  
  22. 1;
  23.