equal
deleted
inserted
replaced
867 |
867 |
868 self infoVisibleHolder value ifTrue:[ self infoVisibilityChanged ]. |
868 self infoVisibleHolder value ifTrue:[ self infoVisibilityChanged ]. |
869 (self toolBarVisibleHolder value |
869 (self toolBarVisibleHolder value |
870 or:[ self editToolBarVisibleHolder value ]) ifTrue:[ self toolBarVisibilityChanged ]. |
870 or:[ self editToolBarVisibleHolder value ]) ifTrue:[ self toolBarVisibilityChanged ]. |
871 |
871 |
|
872 self workspaceSelectionChanged. |
|
873 |
872 "Created: / 18-02-2007 / 15:03:08 / cg" |
874 "Created: / 18-02-2007 / 15:03:08 / cg" |
|
875 "Modified: / 22-01-2011 / 11:46:35 / cg" |
873 ! ! |
876 ! ! |
874 |
877 |
875 !MultiViewToolApplication methodsFor:'menu-actions'! |
878 !MultiViewToolApplication methodsFor:'menu-actions'! |
876 |
879 |
877 addWindow:aWindow named:name |
880 addWindow:aWindow named:name |
897 ] ifFalse:[ |
900 ] ifFalse:[ |
898 tabList addLast:(name bindWith:wsIndex). |
901 tabList addLast:(name bindWith:wsIndex). |
899 newSelectedIndex := wsIndex. |
902 newSelectedIndex := wsIndex. |
900 ]. |
903 ]. |
901 |
904 |
902 (w := aWindow) isScrollWrapper ifTrue:[ |
905 w := aWindow scrolledView. |
903 w := aWindow scrolledView |
|
904 ]. |
|
905 w isKeyboardConsumer ifTrue:[ |
906 w isKeyboardConsumer ifTrue:[ |
906 w takeFocusWhenMapped:true. |
907 w takeFocusWhenMapped:true. |
907 ]. |
908 ]. |
908 |
909 |
909 workspaces at:newSelectedIndex put:aWindow. |
910 workspaces at:newSelectedIndex put:aWindow. |
910 self selectedWorkspaceIndexHolder value:newSelectedIndex. |
911 self selectedWorkspaceIndexHolder value:newSelectedIndex. |
|
912 self workspaceSelectionChanged. |
|
913 |
911 "/ workspaceHolder value:aWindow. |
914 "/ workspaceHolder value:aWindow. |
912 |
915 |
913 "Modified: / 09-12-2010 / 10:56:36 / cg" |
916 "Modified: / 22-01-2011 / 12:02:59 / cg" |
914 ! |
917 ! |
915 |
918 |
916 addWorkspace |
919 addWorkspace |
917 self addWindow:(self createWorkspace) named:'Workspace%1' |
920 self addWindow:(self createWorkspace) named:'Workspace%1' |
918 ! |
921 ! |
1347 ! ! |
1350 ! ! |
1348 |
1351 |
1349 !MultiViewToolApplication class methodsFor:'documentation'! |
1352 !MultiViewToolApplication class methodsFor:'documentation'! |
1350 |
1353 |
1351 version |
1354 version |
1352 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $' |
1355 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.40 2011-01-22 11:05:01 cg Exp $' |
1353 ! |
1356 ! |
1354 |
1357 |
1355 version_CVS |
1358 version_CVS |
1356 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $' |
1359 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.40 2011-01-22 11:05:01 cg Exp $' |
1357 ! ! |
1360 ! ! |