equal
deleted
inserted
replaced
42 [author:] |
42 [author:] |
43 Claus Gittinger |
43 Claus Gittinger |
44 " |
44 " |
45 ! ! |
45 ! ! |
46 |
46 |
|
47 |
47 !MultiViewToolApplication class methodsFor:'defaults'! |
48 !MultiViewToolApplication class methodsFor:'defaults'! |
48 |
49 |
49 defaultEditToolbarVisible |
50 defaultEditToolbarVisible |
50 ^ DefaultEditToolBarVisible ? false |
51 ^ DefaultEditToolBarVisible ? false |
51 |
52 |
62 ^ DefaultToolBarVisible ? false |
63 ^ DefaultToolBarVisible ? false |
63 |
64 |
64 "Created: / 14-07-2007 / 16:38:47 / cg" |
65 "Created: / 14-07-2007 / 16:38:47 / cg" |
65 ! ! |
66 ! ! |
66 |
67 |
|
68 |
67 !MultiViewToolApplication class methodsFor:'help specs'! |
69 !MultiViewToolApplication class methodsFor:'help specs'! |
68 |
70 |
69 flyByHelpSpec |
71 flyByHelpSpec |
70 <resource: #help> |
72 <resource: #help> |
71 |
73 |
73 |
75 |
74 #addWorkspace |
76 #addWorkspace |
75 'Add another page (tab)' |
77 'Add another page (tab)' |
76 |
78 |
77 #hideToolBar |
79 #hideToolBar |
78 'Hide the toolbar. Show again via the "View"-Menu' |
80 'Hide the toolbar. Show again via the "View"-menu' |
79 |
81 |
80 #hideEditToolBar |
82 #hideEditToolBar |
81 'Hide Edit-Toolbar. Show again via the "View"-Menu' |
83 'Hide the edit-toolbar. Show again via the "View"-menu' |
82 |
84 |
83 ) |
85 ) |
84 |
86 |
85 "Modified: / 06-07-2011 / 18:08:57 / cg" |
87 "Modified: / 06-07-2011 / 18:08:57 / cg" |
86 ! ! |
88 ! ! |
|
89 |
87 |
90 |
88 !MultiViewToolApplication class methodsFor:'image specs'! |
91 !MultiViewToolApplication class methodsFor:'image specs'! |
89 |
92 |
90 hideToolBarIcon |
93 hideToolBarIcon |
91 <resource: #programImage> |
94 <resource: #programImage> |
92 |
95 |
93 ^ ToolbarIconLibrary hideToolBarIcon |
96 ^ ToolbarIconLibrary hideToolBarIcon |
94 |
97 |
95 "Created: / 18-02-2007 / 14:53:38 / cg" |
98 "Created: / 18-02-2007 / 14:53:38 / cg" |
96 ! ! |
99 ! ! |
|
100 |
97 |
101 |
98 !MultiViewToolApplication class methodsFor:'interface specs'! |
102 !MultiViewToolApplication class methodsFor:'interface specs'! |
99 |
103 |
100 windowSpec |
104 windowSpec |
101 "This resource specification was automatically generated |
105 "This resource specification was automatically generated |
201 ) |
205 ) |
202 |
206 |
203 "Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
207 "Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
204 ! ! |
208 ! ! |
205 |
209 |
|
210 |
206 !MultiViewToolApplication class methodsFor:'menu specs'! |
211 !MultiViewToolApplication class methodsFor:'menu specs'! |
207 |
212 |
208 editToolBarMenu |
213 editToolBarMenu |
209 "This resource specification was automatically generated |
214 "This resource specification was automatically generated |
210 by the MenuEditor of ST/X." |
215 by the MenuEditor of ST/X." |
541 nil |
546 nil |
542 nil |
547 nil |
543 ) |
548 ) |
544 ! ! |
549 ! ! |
545 |
550 |
|
551 |
546 !MultiViewToolApplication class methodsFor:'queries'! |
552 !MultiViewToolApplication class methodsFor:'queries'! |
547 |
553 |
548 isVisualStartable |
554 isVisualStartable |
549 "return true, if this application can be started via #open. |
555 "return true, if this application can be started via #open. |
550 (to allow start of a change browser via double-click in the browser)" |
556 (to allow start of a change browser via double-click in the browser)" |
551 |
557 |
552 self == MultiViewToolApplication ifTrue:[^false]. |
558 self == MultiViewToolApplication ifTrue:[^false]. |
553 ^ super isVisualStartable |
559 ^ super isVisualStartable |
554 ! ! |
560 ! ! |
|
561 |
555 |
562 |
556 !MultiViewToolApplication methodsFor:'accessing'! |
563 !MultiViewToolApplication methodsFor:'accessing'! |
557 |
564 |
558 selectedWorkspace |
565 selectedWorkspace |
559 |wsIndex| |
566 |wsIndex| |
652 |
659 |
653 workspaces |
660 workspaces |
654 ^ workspaces |
661 ^ workspaces |
655 ! ! |
662 ! ! |
656 |
663 |
|
664 |
657 !MultiViewToolApplication methodsFor:'aspects'! |
665 !MultiViewToolApplication methodsFor:'aspects'! |
658 |
666 |
659 editToolBarVisibleHolder |
667 editToolBarVisibleHolder |
660 |holder| |
668 |holder| |
661 |
669 |
719 |
727 |
720 "Created: / 18-02-2007 / 14:43:39 / cg" |
728 "Created: / 18-02-2007 / 14:43:39 / cg" |
721 "Modified: / 14-07-2007 / 16:39:55 / cg" |
729 "Modified: / 14-07-2007 / 16:39:55 / cg" |
722 ! ! |
730 ! ! |
723 |
731 |
|
732 |
724 !MultiViewToolApplication methodsFor:'aspects-queries'! |
733 !MultiViewToolApplication methodsFor:'aspects-queries'! |
725 |
734 |
726 canRemoveAllWorkspacesExcept:idx |
735 canRemoveAllWorkspacesExcept:idx |
727 ^ self tabList size > 1 |
736 ^ self tabList size > 1 |
728 ! |
737 ! |
753 v := self selectedWorkspacesTextView. |
762 v := self selectedWorkspacesTextView. |
754 ^ v notNil |
763 ^ v notNil |
755 and:[v list notEmptyOrNil |
764 and:[v list notEmptyOrNil |
756 and:[v list contains:[:l | l notEmptyOrNil]]] |
765 and:[v list contains:[:l | l notEmptyOrNil]]] |
757 ! ! |
766 ! ! |
|
767 |
758 |
768 |
759 !MultiViewToolApplication methodsFor:'change & update'! |
769 !MultiViewToolApplication methodsFor:'change & update'! |
760 |
770 |
761 infoVisibilityChanged |
771 infoVisibilityChanged |
762 |visible cFrame bottomOffset| |
772 |visible cFrame bottomOffset| |
834 ^ super update:something with:aParameter from:changedObject |
844 ^ super update:something with:aParameter from:changedObject |
835 |
845 |
836 "Modified: / 14-07-2007 / 16:46:14 / cg" |
846 "Modified: / 14-07-2007 / 16:46:14 / cg" |
837 ! ! |
847 ! ! |
838 |
848 |
|
849 |
839 !MultiViewToolApplication methodsFor:'defaults'! |
850 !MultiViewToolApplication methodsFor:'defaults'! |
840 |
851 |
841 defaultFileNameForLoad |
852 defaultFileNameForLoad |
842 ^ 'file.txt' |
853 ^ 'file.txt' |
843 |
854 |
859 defaultPatternLoad |
870 defaultPatternLoad |
860 ^ '*.txt' |
871 ^ '*.txt' |
861 |
872 |
862 "Created: / 25-10-2006 / 14:57:18 / cg" |
873 "Created: / 25-10-2006 / 14:57:18 / cg" |
863 ! ! |
874 ! ! |
|
875 |
864 |
876 |
865 !MultiViewToolApplication methodsFor:'initialization'! |
877 !MultiViewToolApplication methodsFor:'initialization'! |
866 |
878 |
867 hideToolBarButtonCreated:aButton |
879 hideToolBarButtonCreated:aButton |
868 aButton passiveLevel:(MenuPanel defaultLevel). |
880 aButton passiveLevel:(MenuPanel defaultLevel). |
883 self workspaceSelectionChanged. |
895 self workspaceSelectionChanged. |
884 |
896 |
885 "Created: / 18-02-2007 / 15:03:08 / cg" |
897 "Created: / 18-02-2007 / 15:03:08 / cg" |
886 "Modified: / 22-01-2011 / 11:46:35 / cg" |
898 "Modified: / 22-01-2011 / 11:46:35 / cg" |
887 ! ! |
899 ! ! |
|
900 |
888 |
901 |
889 !MultiViewToolApplication methodsFor:'menu-actions'! |
902 !MultiViewToolApplication methodsFor:'menu-actions'! |
890 |
903 |
891 addWindow:aWindow named:name |
904 addWindow:aWindow named:name |
892 ^ self addWindow:aWindow named:name asFirst:false |
905 ^ self addWindow:aWindow named:name asFirst:false |
1163 wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[ |
1176 wsIndex == self selectedWorkspaceIndexHolder value ifTrue:[ |
1164 self window label:newName. |
1177 self window label:newName. |
1165 ]. |
1178 ]. |
1166 ! ! |
1179 ! ! |
1167 |
1180 |
|
1181 |
1168 !MultiViewToolApplication methodsFor:'menu-actions-editing'! |
1182 !MultiViewToolApplication methodsFor:'menu-actions-editing'! |
1169 |
1183 |
1170 copySelection |
1184 copySelection |
1171 |v| |
1185 |v| |
1172 |
1186 |
1238 |
1252 |
1239 (v := self selectedWorkspacesTextView) notNil ifTrue:[ |
1253 (v := self selectedWorkspacesTextView) notNil ifTrue:[ |
1240 v undo. |
1254 v undo. |
1241 ] |
1255 ] |
1242 ! ! |
1256 ! ! |
|
1257 |
1243 |
1258 |
1244 !MultiViewToolApplication methodsFor:'private'! |
1259 !MultiViewToolApplication methodsFor:'private'! |
1245 |
1260 |
1246 askForFile:question default:defaultFilename thenDo:aBlock |
1261 askForFile:question default:defaultFilename thenDo:aBlock |
1247 Dialog |
1262 Dialog |
1358 ]. |
1373 ]. |
1359 (view isTextView) ifTrue:[^ view]. |
1374 (view isTextView) ifTrue:[^ view]. |
1360 ^ view allSubViewsDetect:[:v| v name = #Workspace] ifNone:nil. |
1375 ^ view allSubViewsDetect:[:v| v name = #Workspace] ifNone:nil. |
1361 ! ! |
1376 ! ! |
1362 |
1377 |
|
1378 |
1363 !MultiViewToolApplication methodsFor:'user actions'! |
1379 !MultiViewToolApplication methodsFor:'user actions'! |
1364 |
1380 |
1365 hideEditToolbar |
1381 hideEditToolbar |
1366 self editToolBarVisibleHolder value:false |
1382 self editToolBarVisibleHolder value:false |
1367 ! |
1383 ! |
1370 self toolBarVisibleHolder value:false |
1386 self toolBarVisibleHolder value:false |
1371 |
1387 |
1372 "Created: / 18-02-2007 / 14:55:54 / cg" |
1388 "Created: / 18-02-2007 / 14:55:54 / cg" |
1373 ! ! |
1389 ! ! |
1374 |
1390 |
|
1391 |
1375 !MultiViewToolApplication class methodsFor:'documentation'! |
1392 !MultiViewToolApplication class methodsFor:'documentation'! |
1376 |
1393 |
1377 version_CVS |
1394 version_CVS |
1378 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.45 2012-08-03 20:25:30 stefan Exp $' |
1395 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.46 2013-03-19 18:38:58 cg Exp $' |
1379 ! |
1396 ! |
1380 |
1397 |
1381 version_HG |
1398 version_HG |
1382 |
1399 |
1383 ^ '$Changeset: <not expanded> $' |
1400 ^ '$Changeset: <not expanded> $' |