--- a/Launcher.st	Thu Jan 09 12:59:41 1997 +0100
+++ b/Launcher.st	Thu Jan 09 13:50:40 1997 +0100
@@ -170,9 +170,11 @@
      Can be redefined in subclasses to return nil (no scaling)
      or any other useful size"
 
-    ^ 32@32
-
-    "Modified: 19.4.1996 / 16:36:17 / cg"
+    <resource: #style (#launcherButtonSize)>
+
+    ^ View styleSheet at:#launcherButtonSize default:(32@32)
+
+    "Modified: 9.1.1997 / 13:48:09 / cg"
 !
 
 notifyingEmergencyHandler
@@ -366,7 +368,7 @@
 
     |box resourceHolder valueHolder component rsrc value t|
 
-    resourceHolder := '*' asValue.
+    resourceHolder := '' asValue.
     valueHolder := '*' asValue.
 
     box := DialogBox new.
@@ -375,13 +377,13 @@
     component adjust:#left.
     box addVerticalSpace:10.
 
-    box addTextLabel:(resources at:'Resource symbol (''*'' for any):') withCRs.
-    component := box addInputFieldOn:resourceHolder tabable:true.
-"/    component immediateAccept:true; acceptOnLeave:false.
-
-    box addTextLabel:(resources at:'Resource value (''*''  for any):') withCRs.
-    component := box addInputFieldOn:valueHolder tabable:true.
-"/    component immediateAccept:true; acceptOnLeave:false.
+    component := box addTextLabel:(resources at:'Resource symbol (empty for any; no matchPattern):') withCRs.
+    component adjust:#left.
+    box addInputFieldOn:resourceHolder tabable:true.
+
+    component := box addTextLabel:(resources at:'Resource value (''*'' for any; matchPattern ok):') withCRs.
+    component adjust:#left.
+    box addInputFieldOn:valueHolder tabable:true.
 
     box addVerticalSpace:10.
     box addAbortButton; addOkButton.
@@ -397,15 +399,14 @@
             t := 'methods with any resource'.
             rsrc := nil
         ] ifFalse:[
-            t := 'methods with ' , rsrc , '-resource'.
-            rsrc := rsrc asSymbolIfInterned.
+            t := 'methods with #' , rsrc , '-resource'.
+            rsrc := rsrc asSymbolIfInterned
         ].
         (value isNil or:[value isEmpty or:[value = '*']]) ifTrue:[
-            t := t := t , ' and any value'.
+            t := t , ' and any value'.
             value := nil
         ] ifFalse:[
-            t := ' and value ' , value.
-            value := value asSymbolIfInterned.
+            t := t , ' and value ' , value.
         ].
         self withWaitCursorDo:[
             SystemBrowser browseForResource:rsrc
@@ -416,7 +417,7 @@
     ].
 
     "Created: 28.5.1996 / 13:15:16 / cg"
-    "Modified: 9.1.1997 / 12:27:23 / cg"
+    "Modified: 9.1.1997 / 13:25:30 / cg"
 !
 
 browseSenders
@@ -4396,5 +4397,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.226 1997-01-09 11:53:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.227 1997-01-09 12:50:40 cg Exp $'
 ! !