class: Tools::SearchDialog
authorClaus Gittinger <cg@exept.de>
Wed, 04 Feb 2015 19:09:28 +0100
changeset 15190 2ab33126b6f7
parent 15189 101061415d25
child 15191 9ba4d765c596
class: Tools::SearchDialog changed: #addInputFieldForSelectorOrNameOrString #askThenDo: do not strip off spaces from searchstrings (in case we want to search for them)
Tools__SearchDialog.st
--- a/Tools__SearchDialog.st	Wed Feb 04 19:08:28 2015 +0100
+++ b/Tools__SearchDialog.st	Wed Feb 04 19:09:28 2015 +0100
@@ -272,7 +272,10 @@
             (selectionList notNil and:[selectionList hasSelection]) ifTrue:[
                 sel := selectionList selectionValue.
             ] ifFalse:[
-                sel := selectorHolder value withoutSeparators.
+                sel := selectorHolder value.
+                searchWhat ~~ #string ifTrue:[
+                    sel := sel withoutSeparators.
+                ].
             ].
             sel isEmptyOrNil ifTrue:[ 
                 browser warn:((searchWhat == #selector) 
@@ -1027,7 +1030,11 @@
             sel := lastSearchPatterns first.
         ].
     ].
-    selectorHolder := (sel ? '') withoutSeparators asValue.
+    searchWhat == #string ifTrue:[
+        selectorHolder := (sel ? '') asValue.
+    ] ifFalse:[
+        selectorHolder := (sel ? '') withoutSeparators asValue.
+    ].
 
     inputField := self addComboBoxOn:selectorHolder tabable:true.
     inputField list:lastSearchPatterns.
@@ -1414,11 +1421,11 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.85 2015-01-31 01:59:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.86 2015-02-04 18:09:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.85 2015-01-31 01:59:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.86 2015-02-04 18:09:28 cg Exp $'
 ! !