--- a/MultiViewToolApplication.st	Fri May 11 00:18:29 2012 +0100
+++ b/MultiViewToolApplication.st	Fri May 11 17:35:43 2012 +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 isApplicationSubView ifTrue:[
+        ws application
+    ] ifFalse:[
+        nil
+    ]
+
+    "Created: / 11-05-2012 / 09:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 tabMenuAt:index
     <resource: #programMenu>
 
@@ -1361,5 +1379,5 @@
 !
 
 version_SVN
-    ^ '$Id: MultiViewToolApplication.st 7990 2012-05-05 22:06:53Z vranyj1 $'
+    ^ '$Id: MultiViewToolApplication.st 7995 2012-05-11 16:35:43Z vranyj1 $'
 ! !