--- a/Launcher.st	Thu Jul 03 13:44:38 1997 +0200
+++ b/Launcher.st	Thu Jul 03 14:25:48 1997 +0200
@@ -397,7 +397,9 @@
 browseResources
     "open a resource- browser after asking for a resource string"
 
-    |box resourceHolder valueHolder component rsrc value t|
+    |box resourceHolder valueHolder component rsrc value t anyString|
+
+    anyString := resources string:'* any *'.
 
     resourceHolder := ValueHolder newString.
     valueHolder := '*' asValue.
@@ -411,13 +413,14 @@
     component := box addTextLabel:(resources at:'Resource symbol (empty for any; no matchPattern allowed):') withCRs.
     component adjust:#left.
     component :=  box addComboBoxOn:resourceHolder tabable:true.
-    component list:#('* any *' 'keyboard' 'style' 'canvas' 'image' nil 'needsFix').
+    component list:((Array with:anyString) , #('canvas' 'menu' 'keyboard' 'style' 'image' 'programMenu' nil 'needsFix')).
 
     component := box addTextLabel:(resources at:'Resource value (* for any; matchPattern is allowed):') withCRs.
     component adjust:#left.
     box addInputFieldOn:valueHolder tabable:true.
 
     box addVerticalSpace:10.
+    box addHelpButtonFor:'programming/language.html#RESOURCEDEFS'.
     box addAbortButton; addOkButton.
 
     box showAtPointer.
@@ -427,7 +430,7 @@
         rsrc := resourceHolder value.
         value := valueHolder value.
 
-        (rsrc isNil or:[rsrc isEmpty or:[rsrc = '*' or:[rsrc = '* any *']]]) ifTrue:[
+        (rsrc isNil or:[rsrc isEmpty or:[rsrc = '*' or:[rsrc = anyString]]]) ifTrue:[
             t := 'methods with any resource'.
             rsrc := nil
         ] ifFalse:[
@@ -449,7 +452,7 @@
     ].
 
     "Created: 28.5.1996 / 13:15:16 / cg"
-    "Modified: 25.2.1997 / 20:09:07 / cg"
+    "Modified: 3.7.1997 / 14:15:37 / cg"
 !
 
 browseSenders
@@ -3539,7 +3542,7 @@
 setupDemoMenu
     "setup the demo- pulldown menu"
 
-    <resource: #menu>
+    <resource: #programMenu>
 
     |m|
 
@@ -3700,7 +3703,7 @@
                       )
                 receiver:self).
 
-    "Modified: 28.3.1997 / 22:45:12 / cg"
+    "Modified: 3.7.1997 / 13:54:20 / cg"
 !
 
 setupFileMenu
@@ -3948,7 +3951,7 @@
 setupToolsMenu
     "setup the tools- pulldown menu"
 
-    <resource: #menu>
+    <resource: #programMenu>
 
     |m|
 
@@ -4067,7 +4070,7 @@
                            )
                 receiver:self).
 
-    "Modified: 1.3.1997 / 20:25:30 / cg"
+    "Modified: 3.7.1997 / 13:54:18 / cg"
 ! !
 
 !Launcher methodsFor:'initialize / release'!
@@ -4761,5 +4764,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.278 1997-06-30 18:28:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.279 1997-07-03 12:25:48 cg Exp $'
 ! !