--- a/MultiViewToolApplication.st	Wed Feb 05 19:59:56 2014 +0100
+++ b/MultiViewToolApplication.st	Wed Feb 05 20:00:00 2014 +0100
@@ -120,7 +120,7 @@
           label: 'Workspace'
           name: 'Workspace'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 432 241)
+          bounds: (Rectangle 0 0 640 480)
           menu: mainMenu
         )
         component: 
@@ -199,6 +199,8 @@
          
         )
       )
+
+    "Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MultiViewToolApplication class methodsFor:'menu specs'!
@@ -571,6 +573,22 @@
     ^ workspaces at:wsIndex
 !
 
+selectedWorkspaceApplication
+    "Return an aoplication of selected workspace or nil,
+     is currently selected workspace is not an embedded
+     ApplicationModel"
+
+    | ws |
+    ws := self selectedWorkspace.
+    ^(ws notNil and:[ws isApplicationSubView]) ifTrue:[
+        ws application
+    ] ifFalse:[
+        nil
+    ]
+
+    "Created: / 11-05-2012 / 09:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 tabMenuAt:index
     <resource: #programMenu>
 
@@ -1357,6 +1375,6 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.46 2013-03-19 18:38:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.47 2014-02-05 19:00:00 cg Exp $'
 ! !