--- a/WindowGroup.st	Fri Jun 25 21:13:30 1999 +0200
+++ b/WindowGroup.st	Sat Jun 26 11:50:18 1999 +0200
@@ -394,34 +394,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
-	    ]
-	]
+            v notNil ifTrue:[
+                (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 |
+            v notNil ifTrue:[
+                (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
+        ^ previousGroup graphicsDevice
     ].
     ^ nil
 
@@ -2080,6 +2084,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.176 1999-05-26 12:41:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.177 1999-06-26 09:50:18 cg Exp $'
 ! !
 WindowGroup initialize!