7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 |
|
14 |
|
15 |
|
16 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
17 |
13 |
18 ToolApplicationModel subclass:#ProjectBrowser |
14 ToolApplicationModel subclass:#ProjectBrowser |
19 instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder |
15 instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder |
20 lastMoveToProject' |
16 lastMoveToProject' |
56 |
52 |
57 ! |
53 ! |
58 |
54 |
59 documentation |
55 documentation |
60 " |
56 " |
|
57 Obsolete - before even going into production... |
|
58 |
61 The new project browser & builder. |
59 The new project browser & builder. |
62 This one will (eventually) make packaging of classLibraries and |
60 This one will (eventually) make packaging of classLibraries and |
63 applications easier. |
61 applications easier. |
64 |
62 |
65 EXPERIMENTAL: not finished. |
63 EXPERIMENTAL: not finished. |
66 |
64 |
67 [start with:] |
65 [start with:] |
68 ProjectBrowser open |
66 ProjectBrowser open |
69 |
67 |
70 [see also:] |
68 [see also:] |
71 Project |
69 Project |
72 |
70 |
73 [author:] |
71 [author:] |
74 Claus Gittinger, eXept Software AG |
72 Claus Gittinger, eXept Software AG |
75 " |
73 " |
76 |
|
77 |
|
78 ! ! |
74 ! ! |
79 |
75 |
80 !ProjectBrowser class methodsFor:'class initialization'! |
76 !ProjectBrowser class methodsFor:'class initialization'! |
81 |
77 |
82 initialize |
78 initialize |
83 "add myself to the launchers tool menu" |
79 "add myself to the launchers tool menu" |
84 |
80 |
85 NewLauncher allInstancesDo:[:l | |
81 |menuItem| |
86 l addUserTool:'Project Builder' |
82 menuItem := MenuItem new |
87 action:[ProjectBrowser open] |
83 translateLabel: true; |
88 in:#menu |
84 value: [ProjectBrowser open]; |
89 after:'Changes Browser' |
85 label:'Project Builder' icon:nil; |
90 icon:self projectBrowserIcon |
86 nameKey: #projectBrowserIcon; |
91 space:false |
87 activeHelpKey: #projectBrowserIcon. |
92 ]. |
88 |
|
89 NewLauncher |
|
90 addMenuItem:menuItem |
|
91 from:self |
|
92 in:'menu.tools' |
|
93 position:#( #after #changesBrowser) |
|
94 space:true. |
|
95 "/ NewLauncher allInstancesDo:[:l | |
|
96 "/ l addUserTool:'Project Builder' |
|
97 "/ action:[ProjectBrowser open] |
|
98 "/ in:#menu |
|
99 "/ after:'Changes Browser' |
|
100 "/ icon:self projectBrowserIcon |
|
101 "/ space:false |
|
102 "/ ]. |
93 |
103 |
94 " |
104 " |
95 self initialize |
105 self initialize |
96 " |
106 " |
97 " |
107 " |
98 NewLauncher allInstancesDo:[:l | |
108 NewLauncher allInstancesDo:[:l | |
99 l removeUserTool:'Project Builder' |
109 l removeUserTool:'Project Builder' |
100 ] |
110 ] |
101 " |
111 " |
102 ! ! |
112 ! ! |
103 |
113 |
104 !ProjectBrowser class methodsFor:'help specs'! |
114 !ProjectBrowser class methodsFor:'help specs'! |