--- a/WindowGroup.st	Fri Oct 25 13:28:17 2002 +0200
+++ b/WindowGroup.st	Fri Oct 25 17:34:11 2002 +0200
@@ -272,12 +272,10 @@
      Notice: this may be a modal dialogs application - i.e. it is not
      always the main application."
 
-    |activeGroup mainView|
+    |activeGroup|
 
     (activeGroup := self activeGroup) notNil ifTrue:[
-        (mainView := activeGroup mainView) notNil ifTrue:[
-            ^ mainView application
-        ]
+        ^ activeGroup application
     ].
     ^ nil
 
@@ -756,6 +754,15 @@
     ]
 !
 
+application
+    |mainView|
+
+    (mainView := self mainView) notNil ifTrue:[
+        ^ mainView application
+    ].
+    ^ nil
+!
+
 mainView
     "return the mainview. Thats the first topView by default"
 
@@ -2701,7 +2708,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.248 2002-09-25 15:29:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.249 2002-10-25 15:34:11 mb Exp $'
 ! !
 
 WindowGroup initialize!