--- a/Launcher.st	Wed May 29 17:39:31 1996 +0200
+++ b/Launcher.st	Wed May 29 17:40:46 1996 +0200
@@ -241,7 +241,7 @@
 !
 
 browseResources
-    |enterBox|
+    |enterBox t|
 
     enterBox := EnterBox title:(resources at:'Resource symbol (nil for any):') withCRs.
     enterBox okText:(resources at:'browse').
@@ -249,19 +249,22 @@
         |rsc|
 
         (resourceName isNil or:[resourceName isEmpty]) ifTrue:[
+            t := 'methods with any resource'.
             rsc := nil
         ] ifFalse:[
+            t := 'methods with ' , resourceName , '-resource'.
             rsc := resourceName asSymbolIfInterned.
         ].
         self withWaitCursorDo:[
             SystemBrowser browseForResource:rsc
                           in:(Smalltalk allClasses)
-                          title:'methods with resource'
+                          title:t
         ]  
     ].
     enterBox showAtPointer
 
     "Created: 28.5.1996 / 13:15:16 / cg"
+    "Modified: 29.5.1996 / 17:30:38 / cg"
 !
 
 browseSenders
@@ -2631,5 +2634,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.131 1996-05-29 13:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.132 1996-05-29 15:40:46 cg Exp $'
 ! !