diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/auto/Tk/Scale/Enter.al')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/auto/Tk/Scale/Enter.al | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl0/lib/auto/Tk/Scale/Enter.al new file mode 100755 index 00000000000..1326a5ed9a0 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/Tk/Scale/Enter.al @@ -0,0 +1,19 @@ +# 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 118 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Enter.al)" +sub Enter +{ + my ($w,$x,$y) = @_; + if ($Tk::strictMotif) + { + $w->{'activeBg'} = $w->cget('-activebackground'); + $w->configure('-activebackground',$w->cget('-background')); + } + $w->Activate($x,$y); +} + +# end of Tk::Scale::Enter +1; |