--- a/WindowGroup.st	Mon Aug 23 14:02:27 1999 +0200
+++ b/WindowGroup.st	Mon Aug 23 14:17:22 1999 +0200
@@ -11,9 +11,9 @@
 "
 
 Object subclass:#WindowGroup
-	instanceVariableNames:'views topViews myProcess mySensor isModal previousGroup focusView
-		focusSequence preEventHook postEventHook pointerView
-		isForModalSubview focusByTab groupHasFocus'
+	instanceVariableNames:'graphicsDevice views topViews myProcess mySensor isModal
+		previousGroup focusView focusSequence preEventHook postEventHook
+		pointerView isForModalSubview focusByTab groupHasFocus'
 	classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal
 		WindowGroupQuerySignal LastEventQuerySignal'
 	poolDictionaries:''
@@ -393,6 +393,8 @@
 
     |dev|
 
+    graphicsDevice notNil ifTrue:[^ graphicsDevice].
+
     topViews notNil ifTrue:[
         topViews do:[:v |
             |app|
@@ -404,11 +406,11 @@
                     "/ ask it for preferences.
                     "/
                     (dev := app graphicsDevice) notNil ifTrue:[
-                        ^ dev
+                        ^ (graphicsDevice := dev)
                     ]
                 ].
                 (dev := v graphicsDevice) notNil ifTrue:[
-                    ^ dev
+                    ^ (graphicsDevice := dev)
                 ]
             ]
         ]
@@ -417,7 +419,7 @@
         views do:[:v |
             v notNil ifTrue:[
                 (dev := v graphicsDevice) notNil ifTrue:[
-                    ^ dev
+                    ^ (graphicsDevice := dev)
                 ]
             ]
         ]
@@ -2087,6 +2089,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.179 1999-08-20 09:32:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.180 1999-08-23 12:17:22 cg Exp $'
 ! !
 WindowGroup initialize!