--- a/ProjectBrowser.st Fri Oct 09 15:09:48 2009 +0200
+++ b/ProjectBrowser.st Sat Oct 10 12:50:15 2009 +0200
@@ -9,10 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
-
"{ Package: 'stx:libtool2' }"
ToolApplicationModel subclass:#ProjectBrowser
@@ -58,6 +54,8 @@
documentation
"
+ Obsolete - before even going into production...
+
The new project browser & builder.
This one will (eventually) make packaging of classLibraries and
applications easier.
@@ -65,16 +63,14 @@
EXPERIMENTAL: not finished.
[start with:]
- ProjectBrowser open
+ ProjectBrowser open
[see also:]
- Project
+ Project
[author:]
- Claus Gittinger, eXept Software AG
+ Claus Gittinger, eXept Software AG
"
-
-
! !
!ProjectBrowser class methodsFor:'class initialization'!
@@ -82,21 +78,35 @@
initialize
"add myself to the launchers tool menu"
- NewLauncher allInstancesDo:[:l |
- l addUserTool:'Project Builder'
- action:[ProjectBrowser open]
- in:#menu
- after:'Changes Browser'
- icon:self projectBrowserIcon
- space:false
- ].
+ |menuItem|
+ menuItem := MenuItem new
+ translateLabel: true;
+ value: [ProjectBrowser open];
+ label:'Project Builder' icon:nil;
+ nameKey: #projectBrowserIcon;
+ activeHelpKey: #projectBrowserIcon.
+
+ NewLauncher
+ addMenuItem:menuItem
+ from:self
+ in:'menu.tools'
+ position:#( #after #changesBrowser)
+ space:true.
+"/ NewLauncher allInstancesDo:[:l |
+"/ l addUserTool:'Project Builder'
+"/ action:[ProjectBrowser open]
+"/ in:#menu
+"/ after:'Changes Browser'
+"/ icon:self projectBrowserIcon
+"/ space:false
+"/ ].
"
self initialize
"
"
NewLauncher allInstancesDo:[:l |
- l removeUserTool:'Project Builder'
+ l removeUserTool:'Project Builder'
]
"
! !
@@ -6439,6 +6449,10 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !
ProjectBrowser initialize!