--- a/VariablePanelController.st	Wed Aug 07 18:49:20 1996 +0200
+++ b/VariablePanelController.st	Thu Aug 15 19:42:11 1996 +0200
@@ -153,6 +153,7 @@
 		    prevPos := hx.
 		    startPos := bx - hx.
 
+		    view grabPointer.
 		    view invertHandleBarAtX:hx y:0.
 		    (group := view windowGroup) notNil ifTrue:[
 			group showCursor:view cursor
@@ -166,6 +167,7 @@
 		    prevPos := hy.
 		    startPos := by - hy.
 
+		    view grabPointer.
 		    view invertHandleBarAtX:0 y:hy.
 		    (group := view windowGroup) notNil ifTrue:[
 			group showCursor:view cursor
@@ -191,6 +193,7 @@
     ((button == 1) or:[button == #select]) ifTrue:[
 	movedHandle isNil ifTrue:[^ self].
 
+	view ungrabPointer.
 	(group := view windowGroup) notNil ifTrue:[
 	    group restoreCursors
 	].
@@ -244,5 +247,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.10 1996-04-25 16:35:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.11 1996-08-15 17:42:11 cg Exp $'
 ! !