--- a/WindowGroup.st	Thu Jul 09 18:15:58 1998 +0200
+++ b/WindowGroup.st	Thu Jul 09 18:19:02 1998 +0200
@@ -356,33 +356,38 @@
     |dev|
 
     topViews notNil ifTrue:[
-	topViews do:[:v |
-	    |app|
+        topViews do:[:v |
+            |app|
 
-	    (app := v application) notNil ifTrue:[
-		"/
-		"/ ok, it has an application;
-		"/ ask it for preferences.
-		"/
-		(dev := app graphicsDevice) notNil ifTrue:[
-		    ^ dev
-		]
-	    ].
-	    (dev := v graphicsDevice) notNil ifTrue:[
-		^ dev
-	    ]
-	]
+            (app := v application) notNil ifTrue:[
+                "/
+                "/ ok, it has an application;
+                "/ ask it for preferences.
+                "/
+                (dev := app graphicsDevice) notNil ifTrue:[
+                    ^ dev
+                ]
+            ].
+            (dev := v graphicsDevice) notNil ifTrue:[
+                ^ dev
+            ]
+        ]
     ].
     views notNil ifTrue:[
-	views do:[:v |
-	    (dev := v graphicsDevice) notNil ifTrue:[
-		^ dev
-	    ]
-	]
+        views do:[:v |
+            (dev := v graphicsDevice) notNil ifTrue:[
+                ^ dev
+            ]
+        ]
+    ].
+    "/ ask the previousGroup; I could be a popUp-views group,
+    "/ which has already closed its views (and is performing its action)
+    previousGroup notNil ifTrue:[
+        ^ previousGroup graphicsDevice
     ].
     ^ nil
 
-    "Modified: 7.2.1997 / 16:14:24 / cg"
+    "Modified: / 9.7.1998 / 18:18:08 / cg"
 !
 
 isModal
@@ -1783,6 +1788,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.137 1998-07-09 08:37:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.138 1998-07-09 16:19:02 cg Exp $'
 ! !
 WindowGroup initialize!