--- a/Tools__StringSearchTool.st	Fri Oct 09 15:11:18 2009 +0200
+++ b/Tools__StringSearchTool.st	Fri Oct 09 16:14:16 2009 +0200
@@ -18,7 +18,7 @@
 		searchBarInfoLabelHolder searchTextModifiedHolder
 		ignoreCaseHolder closeBlock searchNextBlock searchPreviousBlock
 		restartHolder'
-	classVariableNames:''
+	classVariableNames:'LastIgnoreCase LastRestart'
 	poolDictionaries:''
 	category:'Interface-Tools'
 !
@@ -71,6 +71,28 @@
 "
 ! !
 
+!StringSearchTool class methodsFor:'accessing'!
+
+lastIgnoreCase
+
+    ^ LastIgnoreCase ? true
+!
+
+lastIgnoreCase: aBoolean
+
+    LastIgnoreCase := aBoolean
+!
+
+lastRestart
+
+    ^ LastRestart ? false
+!
+
+lastRestart: aBoolean
+
+    LastRestart := aBoolean
+! !
+
 !StringSearchTool class methodsFor:'image specs'!
 
 closeSearchBarIcon
@@ -417,7 +439,7 @@
 ignoreCaseHolder
 
     ignoreCaseHolder isNil ifTrue:[
-        ignoreCaseHolder := true asValue.
+        ignoreCaseHolder := self class lastIgnoreCase asValue.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       ignoreCaseHolder addDependent:self.
         ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self.
@@ -432,7 +454,7 @@
 restartHolder
 
     restartHolder isNil ifTrue:[
-        restartHolder := false asValue.
+        restartHolder := self class lastRestart asValue.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       restartHolder addDependent:self.
         restartHolder onChangeSend:#restartHolderChanged to:self.
@@ -486,6 +508,7 @@
 
     self searchNextTextIncludingCurrentSelection: true.
     self setFocusToSearchTextView.
+    self class lastIgnoreCase: self ignoreCaseHolder value. 
 !
 
 processEvent:anEvent
@@ -517,6 +540,7 @@
 restartHolderChanged
 
     self setFocusToSearchTextView.
+    self class lastRestart: self restartHolder value.
 !
 
 searchTextModifiedHolderChanged
@@ -763,9 +787,9 @@
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.13 2009-10-09 11:53:55 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.14 2009-10-09 14:14:16 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.13 2009-10-09 11:53:55 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.14 2009-10-09 14:14:16 fm Exp $'
 ! !