home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _55de50344d013323472f648bb6410e8c < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.3 KB  |  52 lines
  1. # NOTE: Derived from blib\lib\Tk\Widget.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Tk::Widget;
  5.  
  6. #line 1462 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\clipboardKeysyms.al)"
  7. # clipboardKeysyms --
  8. # This procedure is invoked to identify the keys that correspond to
  9. # the "copy", "cut", and "paste" functions for the clipboard.
  10. #
  11. # Arguments:
  12. # copy - Name of the key (keysym name plus modifiers, if any,
  13. # such as "Meta-y") used for the copy operation.
  14. # cut - Name of the key used for the cut operation.
  15. # paste - Name of the key used for the paste operation.
  16. #
  17. # This method is obsolete use clipboardOperations and abstract
  18. # event types instead. See Clipboard.pm and Mainwindow.pm
  19.  
  20. sub clipboardKeysyms
  21. {
  22.  my @class = ();
  23.  my $mw    = shift;
  24.  if (ref $mw)
  25.   {
  26.    $mw = $mw->DelegateFor('bind');
  27.   }
  28.  else
  29.   {
  30.    push(@class,$mw);
  31.    $mw = shift;
  32.   }
  33.  if (@_)
  34.   {
  35.    my $copy  = shift;
  36.    $mw->Tk::bind(@class,"<$copy>",'clipboardCopy')   if (defined $copy);
  37.   }
  38.  if (@_)
  39.   {
  40.    my $cut   = shift;
  41.    $mw->Tk::bind(@class,"<$cut>",'clipboardCut')     if (defined $cut);
  42.   }
  43.  if (@_)
  44.   {
  45.    my $paste = shift;
  46.    $mw->Tk::bind(@class,"<$paste>",'clipboardPaste') if (defined $paste);
  47.   }
  48. }
  49.  
  50. # end of Tk::Widget::clipboardKeysyms
  51. 1;
  52.