#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Fri, 19 Jan 2018 11:57:52 +0100
changeset 17948 870ec230fdc9
parent 17947 0c62e8828abe
child 17949 f4ada786326b
#BUGFIX by stefan class: Tools::NewSystemBrowser changed: #askForMethodAndSpawnSearchTitle:browserLabel:searchWith:searchWhat:searchArea:withCaseIgnore:withTextEntry:withMatch:withMethodList:setSearchPattern:initialText: Fix DNU in "senders of any"
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Fri Jan 19 11:03:15 2018 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Jan 19 11:57:52 2018 +0100
@@ -57689,7 +57689,7 @@
                     ((selector == #findImplementors:in:ignoreCase:match:)
                     and:[ (arguments first numArgs == 0)
                     and:[
-                            string := (arguments at:1) asMutator.
+                            string := arguments first asMutator.
                             altArguments := arguments copy.
                             altArguments at:1 put:string.
                             initialList := self class perform:selector withArguments:altArguments.
@@ -57715,7 +57715,7 @@
                         "/     confirm:question
                         "/     yesLabel:(resources string:'Search Again')
                         "/     noLabel:(resources string:'Cancel').
-                        (match not and:[string includesMatchCharacters]) ifTrue:[
+                        (match not and:[string notNil and:[string includesMatchCharacters]]) ifTrue:[
                             answer := Dialog
                                         choose:question
                                         labels:(resources array:#('Cancel' 'Search as Matchpattern' 'Search Again'))
@@ -57789,6 +57789,7 @@
 
     "Modified: / 04-09-2013 / 17:39:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-11-2017 / 14:41:02 / cg"
+    "Modified: / 19-01-2018 / 11:50:57 / stefan"
 !
 
 askForMethodAndSpawnSearchTitle:title browserLabel:labelHolderOrBlock