home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _c316c857ebe375f23c7606a56e634b8c < prev    next >
Text File  |  2004-06-01  |  1KB  |  35 lines
  1. # NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Tk::Listbox;
  5.  
  6. #line 620 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginExtend.al)"
  7. # BeginExtend --
  8. #
  9. # This procedure is typically invoked on shift-button-1 presses. It
  10. # begins the process of extending a selection in the listbox. Its
  11. # exact behavior depends on the selection mode currently in effect
  12. # for the listbox; see the Motif documentation for details.
  13. #
  14. # Arguments:
  15. # w - The listbox widget.
  16. # el - The element for the selection operation (typically the
  17. # one under the pointer). Must be in numerical form.
  18. sub BeginExtend
  19. {
  20.  my $w = shift;
  21.  my $el = shift;
  22.  if ($w->cget('-selectmode') eq 'extended' && $w->selectionIncludes('anchor'))
  23.   {
  24.    $w->Motion($el)
  25.   }
  26.  else
  27.   {
  28.    # No selection yet; simulate the begin-select operation.
  29.    $w->BeginSelect($el);
  30.   }
  31. }
  32.  
  33. # end of Tk::Listbox::BeginExtend
  34. 1;
  35.