--- a/AppModel.st	Fri May 29 18:38:41 1998 +0200
+++ b/AppModel.st	Sat Jun 06 19:41:13 1998 +0200
@@ -1382,6 +1382,17 @@
         ]
     ].
     ^ nil
+!
+
+topApplication
+    "return the top-master application"
+
+    masterApplication isNil ifTrue:[
+        ^ self
+    ].
+    ^ masterApplication topApplication
+
+    "Created: / 6.6.1998 / 19:40:42 / cg"
 ! !
 
 !ApplicationModel methodsFor:'startup / release'!
@@ -1727,6 +1738,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.82 1998-05-21 01:45:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.83 1998-06-06 17:41:13 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Fri May 29 18:38:41 1998 +0200
+++ b/ApplicationModel.st	Sat Jun 06 19:41:13 1998 +0200
@@ -1382,6 +1382,17 @@
         ]
     ].
     ^ nil
+!
+
+topApplication
+    "return the top-master application"
+
+    masterApplication isNil ifTrue:[
+        ^ self
+    ].
+    ^ masterApplication topApplication
+
+    "Created: / 6.6.1998 / 19:40:42 / cg"
 ! !
 
 !ApplicationModel methodsFor:'startup / release'!
@@ -1727,6 +1738,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.82 1998-05-21 01:45:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.83 1998-06-06 17:41:13 cg Exp $'
 ! !
 ApplicationModel initialize!