Tools__SearchDialog.st
changeset 14112 81034684fda4
parent 14111 c9f199317b1c
child 14582 66eb95a62527
--- a/Tools__SearchDialog.st	Wed Mar 05 15:06:24 2014 +0100
+++ b/Tools__SearchDialog.st	Wed Mar 05 15:52:44 2014 +0100
@@ -220,17 +220,19 @@
 
     self addInputFieldForSelectorOrNameOrString.
     withCaseIgnore ifTrue:[
-        initialCaseSensitive := (searchWhat == #resource)
-                        ifTrue:[ false ]
-                        ifFalse:[ (LastSearchWasCaseSensitive ? false) ].  
+        initialCaseSensitive := false.
+        (searchWhat ~~ #resource) ifTrue:[ 
+            initialCaseSensitive := (LastSearchWasCaseSensitive ? false) 
+        ].  
         self 
             addCheckBox:(resources string:'Case Sensitive')
             on:(caseHolder := initialCaseSensitive asValue).
     ].
     withMatch ifTrue:[
-        initialMatch := (searchWhat == #resource)
-                        ifTrue:[ true ]
-                        ifFalse:[ (LastSearchWasMatch ? true) ].
+        initialMatch := true.
+        (searchWhat ~~ #resource) ifTrue:[ 
+            initialMatch := (LastSearchWasMatch ? true) 
+        ].
         self 
             addCheckBox:(resources string:'Match')
             on:(matchHolder := initialMatch asValue).
@@ -1402,8 +1404,12 @@
 
 !SearchDialog class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.80 2014-03-05 14:52:44 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.79 2014-03-05 14:06:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.80 2014-03-05 14:52:44 cg Exp $'
 ! !