Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from ../blib/lib/Tk/Scrollbar.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Tk::Scrollbar; | |
5 | ||
6 | #line 304 "../blib/lib/Tk/Scrollbar.pm (autosplit into ../blib/lib/auto/Tk/Scrollbar/ScrlByUnits.al)" | |
7 | # tkScrlByUnits -- | |
8 | # This procedure tells the scrollbar's associated widget to scroll up | |
9 | # or down by a given number of units. It notifies the associated widget | |
10 | # in different ways for old and new command syntaxes. | |
11 | # | |
12 | # Arguments: | |
13 | # w - The scrollbar widget. | |
14 | # orient - Which kinds of scrollbars this applies to: "h" for | |
15 | # horizontal, "v" for vertical, "hv" for both. | |
16 | # amount - How many units to scroll: typically 1 or -1. | |
17 | ||
18 | sub ScrlByUnits | |
19 | {my $w = shift; | |
20 | my $orient = shift; | |
21 | my $amount = shift; | |
22 | my $cmd = $w->cget('-command'); | |
23 | return unless (defined $cmd); | |
24 | return if (index($orient,substr($w->cget('-orient'),0,1)) < 0); | |
25 | my @info = $w->get; | |
26 | if (@info == 2) | |
27 | { | |
28 | $cmd->Call('scroll',$amount,'units'); | |
29 | } | |
30 | else | |
31 | { | |
32 | $cmd->Call($info[2]+$amount); | |
33 | } | |
34 | } | |
35 | ||
36 | # end of Tk::Scrollbar::ScrlByUnits | |
37 | 1; |