Tools__SearchDialog.st
changeset 15190 2ab33126b6f7
parent 15128 2fed9a05632c
child 15480 91b5095ad0a1
--- 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 $'
 ! !