--- a/VariablePanelController.st	Tue Aug 29 19:52:37 2000 +0200
+++ b/VariablePanelController.st	Wed Aug 30 12:15:02 2000 +0200
@@ -247,22 +247,27 @@
     |max min pos subViews halfBarHeight|
 
     subViews := view subViews.
-    halfBarHeight := view barHeight + 1 // 2.
+"/    halfBarHeight := view barHeight + 1 // 2.
+    halfBarHeight := view barHeight // 2.
 
     view orientation == #vertical ifTrue:[
-	pos := by.
-	min := (subViews at:movedHandle)     top.
-	max := (subViews at:movedHandle + 1) bottom.
+        pos := by.
+        min := (subViews at:movedHandle)     top.
+        max := (subViews at:movedHandle + 1) bottom.
     ] ifFalse:[
-	pos := bx.
-	min := (subViews at:movedHandle)     left.
-	max := (subViews at:movedHandle + 1) right.
+        pos := bx.
+        min := (subViews at:movedHandle)     left.
+        max := (subViews at:movedHandle + 1) right.
     ].
 
-    min := min + halfBarHeight.
+    min := min + halfBarHeight - 1.
+    view barHeight odd ifTrue:[ min := min + 1 ].
+
+"/    max := max - halfBarHeight.
+    max := max - halfBarHeight + 1.
 
     pos < min ifTrue:[^ min].
-  ^ pos min:(max - halfBarHeight)
+    ^ pos min:max
 !
 
 detectHandleIndexAt:x y:y
@@ -464,7 +469,7 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.29 2000-08-25 09:41:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.30 2000-08-30 10:15:02 cg Exp $'
 
 
 ! !