--- a/NewLauncher.st	Wed Aug 23 18:18:43 2000 +0200
+++ b/NewLauncher.st	Thu Aug 24 12:51:32 2000 +0200
@@ -701,7 +701,7 @@
 !NewLauncher class methodsFor:'menu configuration'!
 
 addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
-    |positionSpecOrNil itemNameOrNil before what subMenuPath launcherApp|
+    |positionSpecOrNil itemNameOrNil before launcherApp|
 
     (Transcript notNil 
     and:[ Transcript isStream not
@@ -721,8 +721,7 @@
     ].
     before := (positionSpecOrNil == #first) or:[positionSpecOrNil == #before].
 
-    what := where.
-    (what isNil or: [what = 'toolbar']) ifTrue:[
+    (where isNil or: [where = 'toolbar']) ifTrue:[
         UserAddedToolBarItems isNil ifTrue: [UserAddedToolBarItems := Dictionary new].
         UserAddedToolBarItems at:newItem put:(AddedToolInfo new
                                             item:newItem;
@@ -732,13 +731,7 @@
                                             menuWithNewItem:nil;
                                             yourself)
     ].
-    subMenuPath := #( 'tools' ).
-    (what notNil and:[what includes:$.]) ifTrue:[
-        subMenuPath := (what asCollectionOfSubstringsSeparatedBy:$.) copyFrom:2.
-        what := #menu.
-    ].
-
-    (what isNil or: [what = 'menu']) ifTrue:[
+    (where isNil or:[where startsWith:'menu']) ifTrue:[
         UserAddedMenuItems isNil ifTrue: [UserAddedMenuItems := Dictionary new].
         UserAddedMenuItems at:newItem put:(AddedToolInfo new
                                             item:newItem;
@@ -3519,5 +3512,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.195 2000-08-23 14:04:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.196 2000-08-24 10:51:32 cg Exp $'
 ! !