diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al new file mode 100755 index 00000000000..86037b86d92 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al @@ -0,0 +1,23 @@ +# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk::Scale; + +#line 189 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\EndDrag.al)" +# EndDrag -- +# This procedure is called to end an interactive drag of the +# slider. It just marks the drag as over. +# Arguments: +# w - The scale widget. +sub EndDrag +{ + my $w = shift; + if (!$Tk::dragging) + { + return; + } + $Tk::dragging = 0; +} + +# end of Tk::Scale::EndDrag +1; |