--- a/WindowGroup.st	Fri Apr 04 19:21:46 2003 +0200
+++ b/WindowGroup.st	Tue Apr 08 14:32:24 2003 +0200
@@ -2419,7 +2419,7 @@
     graphicsDevice := nil.
 
     "/ enumerate views - flush their device info ...
-    topViews do:[:eachTopView |
+    self allTopViewsDo:[:eachTopView |
         eachTopView realized ifTrue:[
             previouslyRealized add:eachTopView
         ].
@@ -2741,7 +2741,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.253 2003-03-20 23:42:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.254 2003-04-08 12:32:24 martin Exp $'
 ! !
 
 WindowGroup initialize!