--- a/Launcher.st	Tue May 28 13:06:06 1996 +0200
+++ b/Launcher.st	Tue May 28 13:17:19 1996 +0200
@@ -240,6 +240,30 @@
     enterBox showAtPointer
 !
 
+browseResources
+    |enterBox|
+
+    enterBox := EnterBox title:(resources at:'Resource symbol (nil for any):') withCRs.
+    enterBox okText:(resources at:'browse').
+    enterBox action:[:resourceName |
+        |rsc|
+
+        (resourceName isNil or:[resourceName isEmpty]) ifTrue:[
+            rsc := nil
+        ] ifFalse:[
+            rsc := resourceName asSymbolIfInterned.
+        ].
+        self withWaitCursorDo:[
+            SystemBrowser browseForResource:rsc
+                          in:(Smalltalk allClasses)
+                          title:'methods with resource'
+        ]  
+    ].
+    enterBox showAtPointer
+
+    "Created: 28.5.1996 / 13:15:16 / cg"
+!
+
 browseSenders
     |enterBox|
 
@@ -2144,6 +2168,7 @@
                                         '-'
                                         'implementors ...'
                                         'senders ...'
+                                        'resource ...'
                                         '-'
                                         'change browser'
                                         ))
@@ -2156,6 +2181,7 @@
                                         nil
                                         #browseImplementors 
                                         #browseSenders 
+                                        #browseResources 
                                         nil
                                         #startChangesBrowser 
                       )
@@ -2247,7 +2273,7 @@
         (myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
     ].
 
-    "Modified: 12.5.1996 / 15:32:21 / cg"
+    "Modified: 28.5.1996 / 13:15:40 / cg"
 !
 
 setupOtherViewsIn:aTopView
@@ -2596,5 +2622,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.128 1996-05-26 11:32:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.129 1996-05-28 11:17:19 cg Exp $'
 ! !