--- a/VariablePanelController.st	Sun Sep 21 00:41:01 1997 +0200
+++ b/VariablePanelController.st	Sun Sep 21 20:11:21 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 12:08:04 am'                !
+
 Controller subclass:#VariablePanelController
 	instanceVariableNames:'movedHandle prevPos startPos'
 	classVariableNames:''
@@ -150,7 +152,7 @@
 
             view orientation ~~ #vertical ifTrue:[
                 hx := hPoint x.
-                (bx between:hx and:(hx + barHeight)) ifTrue:[
+                (bx between:(hx - barHeight) and:(hx + barHeight)) ifTrue:[
                     movedHandle := handle.
                     prevPos := hx.
                     startPos := bx - hx.
@@ -164,7 +166,7 @@
                 ].
             ] ifFalse:[
                 hy := hPoint y.
-                (by between:hy and:(hy + barHeight)) ifTrue:[
+                (by between:(hy - barHeight) and:(hy + barHeight)) ifTrue:[
                     movedHandle := handle.
                     prevPos := hy.
                     startPos := by - hy.
@@ -183,6 +185,8 @@
     ] ifFalse:[
         super buttonPress:button x:bx y:by
     ]
+
+    "Modified: 21.9.1997 / 12:06:48 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -249,5 +253,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.13 1997-05-05 15:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.14 1997-09-21 18:11:21 cg Exp $'
 ! !