--- a/Launcher.st	Thu Jul 11 14:11:26 1996 +0200
+++ b/Launcher.st	Thu Jul 11 17:43:31 1996 +0200
@@ -2089,6 +2089,26 @@
     "Modified: 5.7.1996 / 11:45:19 / cg"
 !
 
+menuAt:nameSymbol
+    "return a menu by name"
+
+    ^ myMenu subMenuAt:nameSymbol
+
+    "
+     |launcher demoMenu|
+
+     launcher := Transcript topView application.
+     demoMenu := launcher menuAt:#demos.
+     demoMenu
+        addLabels:#('-' 'fooBar')
+        selectors:#(nil fooBar).
+     demoMenu actionAt:#fooBar put:[Transcript showCR:'fooBar']
+    "
+
+    "Created: 11.7.1996 / 15:35:13 / cg"
+    "Modified: 11.7.1996 / 15:42:25 / cg"
+!
+
 removeMenu:name
     "dynamically remove a (user-)menu from the menu panel.
      This allows applications to de-install items for themself
@@ -3174,5 +3194,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.165 1996-07-05 16:02:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.166 1996-07-11 15:43:31 cg Exp $'
 ! !