Commit | Line | Data |
---|---|---|
86530b38 AT |
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 114 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/xyIndex.al)" | |
7 | # | |
8 | # Bind -- | |
9 | # This procedure is invoked the first time the mouse enters a listbox | |
10 | # widget or a listbox widget receives the input focus. It creates | |
11 | # all of the class bindings for listboxes. | |
12 | # | |
13 | # Arguments: | |
14 | # event - Indicates which event caused the procedure to be invoked | |
15 | # (Enter or FocusIn). It is used so that we can carry out | |
16 | # the functions of that event in addition to setting up | |
17 | # bindings. | |
18 | ||
19 | sub xyIndex | |
20 | { | |
21 | my $w = shift; | |
22 | my $Ev = $w->XEvent; | |
23 | return $w->index($Ev->xy); | |
24 | } | |
25 | ||
26 | # end of Tk::Listbox::xyIndex | |
27 | 1; |