--- a/XWorkstation.st	Tue Feb 26 13:17:59 2002 +0100
+++ b/XWorkstation.st	Tue Feb 26 13:18:52 2002 +0100
@@ -4175,7 +4175,14 @@
 configure:view x:x y:y width:w height:h above:above
     "forward a size-change event for some view"
 
-    self configureX:x y:y width:w height:h view:view
+    self configureX:x y:y width:w height:h view:view.
+    above notNil ifTrue:[
+        |aboveView|
+        aboveView := self viewFromId:above.
+        aboveView notNil ifTrue:[
+            self coveredBy:aboveView view:view.
+        ].
+     ].
 !
 
 configureRequest:view x:x y:y width:w height:h above:above detail:detail
@@ -11644,6 +11651,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.403 2002-02-11 09:31:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.404 2002-02-26 12:18:52 stefan Exp $'
 ! !
 XWorkstation initialize!