--- a/NewLauncher.st	Sun Jul 03 22:56:26 2011 +0200
+++ b/NewLauncher.st	Sun Jul 03 22:57:40 2011 +0200
@@ -974,6 +974,9 @@
     (where isNil or: [where = 'toolbar']) ifTrue:[
         UserAddedToolBarItems isNil ifTrue: [UserAddedToolBarItems := Dictionary new].
         (UserAddedToolBarItems contains:[:info | info item nameKey = newItem nameKey])
+        ifTrue:[
+            Transcript showCR:'menu item already present'
+        ]
         ifFalse:[
             UserAddedToolBarItems
                 at:newItem put:(AddedToolInfo new
@@ -990,6 +993,9 @@
     (where isNil or:[where startsWith:'menu']) ifTrue:[
         UserAddedMenuItems isNil ifTrue: [UserAddedMenuItems := Dictionary new].
         (UserAddedMenuItems contains:[:info | info item nameKey = newItem nameKey])
+        ifTrue:[
+            Transcript showCR:'menu item already present'
+        ]
         ifFalse:[
             UserAddedMenuItems 
                 at:newItem put:(AddedToolInfo new
@@ -1003,6 +1009,8 @@
                                             yourself)
         ]
     ]
+
+    "Modified: / 03-07-2011 / 22:26:36 / cg"
 !
 
 addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
@@ -3808,6 +3816,7 @@
         "/ look if not already in the toolBar
         (self findItem:newItem inMenuPanel:menuPanel) ~~ 0 ifTrue:[
             "item already exists - do nothing"
+            Transcript showCR:'menu item already present'.
             ^ self.
         ].
 
@@ -3911,6 +3920,7 @@
         "/ look if not already in the panel
         (self findItem:newItem inMenuPanel:menuPanel) ~~ 0 ifTrue:[
             "item already exists - do nothing"
+            Transcript showCR:'menu item already present'.
             ^ self.
         ].
 
@@ -4037,6 +4047,8 @@
         position:#first
         space:true.
     "
+
+    "Modified: / 03-07-2011 / 22:28:58 / cg"
 !
 
 addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
@@ -4817,7 +4829,7 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.407 2011-07-01 15:48:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.408 2011-07-03 20:57:40 cg Exp $'
 !
 
 version_SVN