equal
deleted
inserted
replaced
118 window: |
118 window: |
119 (WindowSpec |
119 (WindowSpec |
120 label: 'Workspace' |
120 label: 'Workspace' |
121 name: 'Workspace' |
121 name: 'Workspace' |
122 min: (Point 10 10) |
122 min: (Point 10 10) |
123 bounds: (Rectangle 0 0 432 241) |
123 bounds: (Rectangle 0 0 640 480) |
124 menu: mainMenu |
124 menu: mainMenu |
125 ) |
125 ) |
126 component: |
126 component: |
127 (SpecCollection |
127 (SpecCollection |
128 collection: ( |
128 collection: ( |
197 ) |
197 ) |
198 ) |
198 ) |
199 |
199 |
200 ) |
200 ) |
201 ) |
201 ) |
|
202 |
|
203 "Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
202 ! ! |
204 ! ! |
203 |
205 |
204 !MultiViewToolApplication class methodsFor:'menu specs'! |
206 !MultiViewToolApplication class methodsFor:'menu specs'! |
205 |
207 |
206 editToolBarMenu |
208 editToolBarMenu |
567 workspaces size < wsIndex ifTrue:[ |
569 workspaces size < wsIndex ifTrue:[ |
568 workspaces grow:wsIndex. |
570 workspaces grow:wsIndex. |
569 workspaces at:wsIndex put:(self createWorkspace). |
571 workspaces at:wsIndex put:(self createWorkspace). |
570 ]. |
572 ]. |
571 ^ workspaces at:wsIndex |
573 ^ workspaces at:wsIndex |
|
574 ! |
|
575 |
|
576 selectedWorkspaceApplication |
|
577 "Return an aoplication of selected workspace or nil, |
|
578 is currently selected workspace is not an embedded |
|
579 ApplicationModel" |
|
580 |
|
581 | ws | |
|
582 ws := self selectedWorkspace. |
|
583 ^(ws notNil and:[ws isApplicationSubView]) ifTrue:[ |
|
584 ws application |
|
585 ] ifFalse:[ |
|
586 nil |
|
587 ] |
|
588 |
|
589 "Created: / 11-05-2012 / 09:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
572 ! |
590 ! |
573 |
591 |
574 tabMenuAt:index |
592 tabMenuAt:index |
575 <resource: #programMenu> |
593 <resource: #programMenu> |
576 |
594 |
1355 ! ! |
1373 ! ! |
1356 |
1374 |
1357 !MultiViewToolApplication class methodsFor:'documentation'! |
1375 !MultiViewToolApplication class methodsFor:'documentation'! |
1358 |
1376 |
1359 version_CVS |
1377 version_CVS |
1360 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.46 2013-03-19 18:38:58 cg Exp $' |
1378 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.47 2014-02-05 19:00:00 cg Exp $' |
1361 ! ! |
1379 ! ! |
1362 |
1380 |