# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1255171815 -7200
# Node ID 3f32d6e1c71f29b6553d0fe193dfcf3dd1bf677c
# Parent  876679f78999d6d09de3889b9e56448dabe6dd51
changed:
        #documentation
        #initialize

diff -r 876679f78999 -r 3f32d6e1c71f ProjectBrowser.st
--- 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!