--- a/VariablePanelController.st	Wed Sep 06 15:50:39 2000 +0200
+++ b/VariablePanelController.st	Thu Sep 07 19:00:39 2000 +0200
@@ -281,8 +281,11 @@
         ].
     ].
 
-    min := min + halfBarHeight - 1.
+    min := min + halfBarHeight "- 1".
     barHeight odd ifTrue:[ min := min + 1 ].
+    movedHandle == 1 ifTrue:[
+        min := min + view margin
+    ].
 
 "/    max := max - halfBarHeight.
 "/    movedHandle == (subViews size-1) ifTrue:[
@@ -292,6 +295,10 @@
         barHeight odd ifTrue:[ max := max - 1 ].
 "/    ].
 
+    movedHandle == (subViews size-1) ifTrue:[
+        max := max - view margin
+    ].
+
     pos < min ifTrue:[^ min].
     pos > max ifTrue:[^ max].
     ^ pos
@@ -493,7 +500,7 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.31 2000-09-01 14:21:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.32 2000-09-07 17:00:39 cg Exp $'
 
 
 ! !