class: Tools::SearchDialog
changed:
#addInputFieldForSelectorOrNameOrString
#askThenDo:
do not strip off spaces from searchstrings
(in case we want to search for them)
--- 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 $'
! !