better browse-resource dialog
authorClaus Gittinger <cg@exept.de>
Fri, 17 Jan 1997 23:28:18 +0100
changeset 970 4d14ab7bd326
parent 969 dbe3bcdcbd47
child 971 3f31069f85ce
better browse-resource dialog
Launcher.st
--- a/Launcher.st	Fri Jan 17 20:45:58 1997 +0100
+++ b/Launcher.st	Fri Jan 17 23:28:18 1997 +0100
@@ -410,7 +410,8 @@
 
     component := box addTextLabel:(resources at:'Resource symbol (empty for any; no matchPattern):') withCRs.
     component adjust:#left.
-    box addInputFieldOn:resourceHolder tabable:true.
+    component :=  box addComboBoxOn:resourceHolder tabable:true.
+    component list:#('* any *' 'keyboard' 'style' 'canvas' nil 'needsFix').
 
     component := box addTextLabel:(resources at:'Resource value (''*'' for any; matchPattern ok):') withCRs.
     component adjust:#left.
@@ -426,7 +427,7 @@
         rsrc := resourceHolder value.
         value := valueHolder value.
 
-        (rsrc isNil or:[rsrc isEmpty or:[rsrc = '*']]) ifTrue:[
+        (rsrc isNil or:[rsrc isEmpty or:[rsrc = '*' or:[rsrc = '* any *']]]) ifTrue:[
             t := 'methods with any resource'.
             rsrc := nil
         ] ifFalse:[
@@ -448,7 +449,7 @@
     ].
 
     "Created: 28.5.1996 / 13:15:16 / cg"
-    "Modified: 16.1.1997 / 00:53:05 / cg"
+    "Modified: 17.1.1997 / 23:14:18 / cg"
 !
 
 browseSenders
@@ -4506,5 +4507,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.235 1997-01-17 17:02:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.236 1997-01-17 22:28:18 cg Exp $'
 ! !