--- a/VarPanelC.st	Fri May 02 14:59:59 1997 +0200
+++ b/VarPanelC.st	Mon May 05 17:57:22 1997 +0200
@@ -116,7 +116,9 @@
 	]
     ].
 
-     view orientation ~~ #vertical ifTrue:[
+    prevPos == pos ifTrue:[^ self].
+
+    view orientation ~~ #vertical ifTrue:[
 	oldHx := prevPos. 
 	newHx := pos.
 	oldHy := newHy := 0.
@@ -247,5 +249,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.12 1996-11-07 14:06:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.13 1997-05-05 15:57:22 cg Exp $'
 ! !

--- a/VariablePanelController.st	Fri May 02 14:59:59 1997 +0200
+++ b/VariablePanelController.st	Mon May 05 17:57:22 1997 +0200
@@ -116,7 +116,9 @@
 	]
     ].
 
-     view orientation ~~ #vertical ifTrue:[
+    prevPos == pos ifTrue:[^ self].
+
+    view orientation ~~ #vertical ifTrue:[
 	oldHx := prevPos. 
 	newHx := pos.
 	oldHy := newHy := 0.
@@ -247,5 +249,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.12 1996-11-07 14:06:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.13 1997-05-05 15:57:22 cg Exp $'
 ! !