--- a/ApplicationModel.st	Tue Jan 14 13:11:36 2014 +0100
+++ b/ApplicationModel.st	Fri Jan 17 12:24:50 2014 +0100
@@ -1186,7 +1186,8 @@
 !
 
 masterApplication
-    "return the value of the instance variable 'masterApplication' (automatically generated)"
+    "return the master application, in which I am embedded, or nil, if I am the topmost application.
+     Useful for embedded sub applications to access outer windows and/or bindings from the master"
 
     ^ masterApplication
 !
@@ -1228,6 +1229,13 @@
     resources := aResourcePack
 !
 
+topMasterApplication
+    "return the topmost master application. Useful when nested subapplications are used"
+
+    masterApplication isNil ifTrue:[^ self].
+    ^ masterApplication topMasterApplication
+!
+
 topView
     "SimpleView compatibility - answer my topWindow"
 
@@ -4022,11 +4030,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.349 2013-11-13 18:19:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.350 2014-01-17 11:24:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.349 2013-11-13 18:19:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.350 2014-01-17 11:24:50 cg Exp $'
 ! !