--- a/VariablePanelController.st	Thu Nov 07 15:04:42 1996 +0100
+++ b/VariablePanelController.st	Thu Nov 07 15:06:02 1996 +0100
@@ -137,49 +137,49 @@
     |handle barHeight group|
 
     ((button == 1) or:[button == #select]) ifTrue:[
-	handle := 1.
-	barHeight := view barHeight.
+        handle := 1.
+        barHeight := view barHeight.
 
-	"
-	 search the handle, invert the first time
-	"
-	view handleOriginsDo:[:hPoint |
-	    |hx hy|
+        "
+         search the handle, invert the first time
+        "
+        view handleOriginsWithIndexDo:[:hPoint :hIndex |
+            |hx hy|
 
-	    view orientation ~~ #vertical ifTrue:[
-		hx := hPoint x.
-		(bx between:hx and:(hx + barHeight)) ifTrue:[
-		    movedHandle := handle.
-		    prevPos := hx.
-		    startPos := bx - hx.
+            view orientation ~~ #vertical ifTrue:[
+                hx := hPoint x.
+                (bx between:hx and:(hx + barHeight)) ifTrue:[
+                    movedHandle := handle.
+                    prevPos := hx.
+                    startPos := bx - hx.
 
-		    view grabPointer.
-		    view invertHandleBarAtX:hx y:0.
-		    (group := view windowGroup) notNil ifTrue:[
-			group showCursor:view cursor
-		    ].
-		    ^ self
-		].
-	    ] ifFalse:[
-		hy := hPoint y.
-		(by between:hy and:(hy + barHeight)) ifTrue:[
-		    movedHandle := handle.
-		    prevPos := hy.
-		    startPos := by - hy.
+                    view grabPointer.
+                    view invertHandleBarAtX:hx y:0.
+                    (group := view windowGroup) notNil ifTrue:[
+                        group showCursor:view cursor
+                    ].
+                    ^ self
+                ].
+            ] ifFalse:[
+                hy := hPoint y.
+                (by between:hy and:(hy + barHeight)) ifTrue:[
+                    movedHandle := handle.
+                    prevPos := hy.
+                    startPos := by - hy.
 
-		    view grabPointer.
-		    view invertHandleBarAtX:0 y:hy.
-		    (group := view windowGroup) notNil ifTrue:[
-			group showCursor:view cursor
-		    ].
-		    ^ self
-		].
-	    ].
-	    handle := handle + 1
-	].
-	movedHandle := nil
+                    view grabPointer.
+                    view invertHandleBarAtX:0 y:hy.
+                    (group := view windowGroup) notNil ifTrue:[
+                        group showCursor:view cursor
+                    ].
+                    ^ self
+                ].
+            ].
+            handle := handle + 1
+        ].
+        movedHandle := nil
     ] ifFalse:[
-	super buttonPress:button x:bx y:by
+        super buttonPress:button x:bx y:by
     ]
 !
 
@@ -247,5 +247,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.11 1996-08-15 17:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.12 1996-11-07 14:06:02 ca Exp $'
 ! !