Commit | Line | Data |
---|---|---|
86530b38 AT |
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 1248 "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; |