12 files changed, 289 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Activate.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Activate.al
new file mode 100755
index 00000000000..500358c8e0e
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Activate.al
@@ -0,0 +1,33 @@
+# 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 86 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Activate.al)"
+# Activate --
+# This procedure is invoked to check a given x-y position in the
+# scale and activate the slider if the x-y position falls within
+# the slider.
+#
+# Arguments:
+# w - The scale widget.
+# x, y - Mouse coordinates.
+sub Activate
+{
+ my $w = shift;
+ my $x = shift;
+ my $y = shift;
+ return if ($w->cget('-state') eq 'disabled');
+ my $ident = $w->identify($x,$y);
+ if (defined($ident) && $ident eq 'slider')
+  {
+   $w->configure(-state => 'active')
+  }
+ else
+  {
+   $w->configure(-state => 'normal')
+  }
+}
+
+# end of Tk::Scale::Activate
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al
new file mode 100755
index 00000000000..61ed6f32c11
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al
@@ -0,0 +1,40 @@
+# 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 138 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonDown.al)"
+# ButtonDown --
+# This procedure is invoked when a button is pressed in a scale. It
+# takes different actions depending on where the button was pressed.
+#
+# Arguments:
+# w - The scale widget.
+# x, y - Mouse coordinates of button press.
+sub ButtonDown
+{
+ my $w = shift;
+ my $x = shift;
+ my $y = shift;
+ $Tk::dragging = 0;
+ $el = $w->identify($x,$y);
+ return unless ($el);
+ if ($el eq 'trough1')
+  {
+   $w->Increment('up','little','initial')
+  }
+ elsif ($el eq 'trough2')
+  {
+   $w->Increment('down','little','initial')
+  }
+ elsif ($el eq 'slider')
+  {
+   $Tk::dragging = 1;
+   my @coords = $w->coords();
+   $Tk::deltaX = $x-$coords[0];
+   $Tk::deltaY = $y-$coords[1];
+  }
+}
+
+# end of Tk::Scale::ButtonDown
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonUp.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonUp.al
new file mode 100755
index 00000000000..d5a22a77a46
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonUp.al
@@ -0,0 +1,16 @@
+# 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 129 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonUp.al)"
+sub ButtonUp
+{
+ my ($w,$x,$y) = @_;
+ $w->CancelRepeat();
+ $w->EndDrag();
+ $w->Activate($x,$y)
+}
+
+# end of Tk::Scale::ButtonUp
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ControlPress.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ControlPress.al
new file mode 100755
index 00000000000..50d7ad8b447
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ControlPress.al
@@ -0,0 +1,31 @@
+# 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 255 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ControlPress.al)"
+# ControlPress --
+# This procedure handles button presses that are made with the Control
+# key down. Depending on the mouse position, it adjusts the scale
+# value to one end of the range or the other.
+#
+# Arguments:
+# w - The scale widget.
+# x, y - Mouse coordinates where the button was pressed.
+sub ControlPress
+{
+ my ($w,$x,$y) = @_;
+ my $el = $w->identify($x,$y);
+ return unless ($el);
+ if ($el eq 'trough1')
+  {
+   $w->set($w->cget('-from'))
+  }
+ elsif ($el eq 'trough2')
+  {
+   $w->set($w->cget('-to'))
+  }
+}
+
+1;
+# end of Tk::Scale::ControlPress
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Drag.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Drag.al
new file mode 100755
index 00000000000..0bc63b12879
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Drag.al
@@ -0,0 +1,29 @@
+# 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 169 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Drag.al)"
+# Drag --
+# This procedure is called when the mouse is dragged with
+# mouse button 1 down. If the drag started inside the slider
+# (i.e. the scale is active) then the scale's value is adjusted
+# to reflect the mouse's position.
+#
+# Arguments:
+# w - The scale widget.
+# x, y - Mouse coordinates.
+sub Drag
+{
+ my $w = shift;
+ my $x = shift;
+ my $y = shift;
+ if (!$Tk::dragging)
+  {
+   return;
+  }
+ $w->set($w->get($x-$Tk::deltaX,$y-$Tk::deltaY))
+}
+
+# end of Tk::Scale::Drag
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/EndDrag.al
new file mode 100755
index 00000000000..86037b86d92
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/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;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Enter.al
new file mode 100755
index 00000000000..1326a5ed9a0
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/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;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Increment.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Increment.al
new file mode 100755
index 00000000000..76432eeaf40
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Increment.al
@@ -0,0 +1,61 @@
+# 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 203 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Increment.al)"
+# Increment --
+# This procedure is invoked to increment the value of a scale and
+# to set up auto-repeating of the action if that is desired. The
+# way the value is incremented depends on the "dir" and "big"
+# arguments.
+#
+# Arguments:
+# w - The scale widget.
+# dir - "up" means move value towards -from, "down" means
+# move towards -to.
+# big - Size of increments: "big" or "little".
+# repeat - Whether and how to auto-repeat the action: "noRepeat"
+# means don't auto-repeat, "initial" means this is the
+# first action in an auto-repeat sequence, and "again"
+# means this is the second repetition or later.
+sub Increment
+{
+ my $w = shift;
+ my $dir = shift;
+ my $big = shift;
+ my $repeat = shift;
+ my $inc;
+ if ($big eq 'big')
+  {
+   $inc = $w->cget('-bigincrement');
+   if ($inc == 0)
+    {
+     $inc = abs(($w->cget('-to')-$w->cget('-from')))/10.0
+    }
+   if ($inc < $w->cget('-resolution'))
+    {
+     $inc = $w->cget('-resolution')
+    }
+  }
+ else
+  {
+   $inc = $w->cget('-resolution')
+  }
+ if (($w->cget('-from') > $w->cget('-to')) ^ ($dir eq 'up'))
+  {
+   $inc = -$inc
+  }
+ $w->set($w->get()+$inc);
+ if ($repeat eq 'again')
+  {
+   $w->RepeatId($w->after($w->cget('-repeatinterval'),'Increment',$w,$dir,$big,'again'));
+  }
+ elsif ($repeat eq 'initial')
+  {
+   $w->RepeatId($w->after($w->cget('-repeatdelay'),'Increment',$w,$dir,$big,'again'));
+  }
+}
+
+# end of Tk::Scale::Increment
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Leave.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Leave.al
new file mode 100755
index 00000000000..eb6f7b69f89
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Leave.al
@@ -0,0 +1,15 @@
+# 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 111 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Leave.al)"
+sub Leave
+{
+ my ($w) = @_;
+ $w->configure('-activebackground',$w->{'activeBg'}) if ($Tk::strictMotif);
+ $w->configure('-state','normal')  if ($w->cget('-state') eq 'active');
+}
+
+# end of Tk::Scale::Leave
+1;
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.bs b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.bs
new file mode 100755
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.bs
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.dll b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.dll
new file mode 100755
index 00000000000..a9dbd0201f7
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/Scale.dll
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/autosplit.ix b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/autosplit.ix
new file mode 100755
index 00000000000..a5c5d2292f2
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/autosplit.ix
@@ -0,0 +1,22 @@
+# Index created by AutoSplit for ..\blib\lib\Tk\Scale.pm
+#    (file acts as timestamp)
+package Tk::Scale;
+sub Activate 
+;
+sub Leave 
+;
+sub Enter 
+;
+sub ButtonUp 
+;
+sub ButtonDown 
+;
+sub Drag 
+;
+sub EndDrag 
+;
+sub Increment 
+;
+sub ControlPress 
+;
+1;