# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1079456187 -3600
# Node ID ab4c777f25f22d14dba0e93d444a3fb13ad26363
# Parent  d9fa63dfd97837c43adeb165410af4082a6a10a8
*** empty log message ***

diff -r d9fa63dfd978 -r ab4c777f25f2 FindFileApplication.st
--- a/FindFileApplication.st	Tue Mar 16 17:31:10 2004 +0100
+++ b/FindFileApplication.st	Tue Mar 16 17:56:27 2004 +0100
@@ -20,7 +20,7 @@
 		searchResultTable resultList enableStop enableSearch stopSignal
 		accessLock searchTask expanded searchRecursively selectionHolder
 		hasListEntries targetApplication useLocate useGrep
-		rememberInCache searchOnlyInCache'
+		rememberInCache searchOnlyInCache searchForSameContents'
 	classVariableNames:'ContentsInfoCache'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
@@ -205,6 +205,7 @@
                     enableChannel: notSearchForSameContents
                     tabable: true
                     model: contentsPatternHolder
+                    formatString: ''
                     immediateAccept: true
                     acceptOnPointerLeave: false
                   )
@@ -213,6 +214,7 @@
                     name: 'UseGrepCheckBox'
                     layout: (LayoutFrame -300 1 53 0 -158 1 76 0)
                     visibilityChannel: canUseGrep
+                    enableChannel: notSearchForSameContents
                     tabable: true
                     model: useGrep
                     translateLabel: true
@@ -260,8 +262,8 @@
                   )
                  (InputFieldSpec
                     name: 'SameContentsAsEntryField'
-                    layout: (LayoutFrame 156 0 100 0 -315 1 120 0)
-                    enableChannel: notSearchForSameContents
+                    layout: (LayoutFrame 156 0 100 0 -339 1 120 0)
+                    enableChannel: searchForSameContents
                     tabable: true
                     model: sameContentsAsHolder
                     formatString: ''
@@ -273,6 +275,7 @@
                     name: 'RememberInCacheCheckBox'
                     layout: (LayoutFrame -300 1 101 0 -158 1 124 0)
                     visibilityChannel: canUseGrep
+                    enableChannel: searchForSameContents
                     tabable: true
                     model: rememberInCache
                     translateLabel: true
@@ -281,11 +284,19 @@
                     label: 'Search In Cache'
                     name: 'SearchOnlyInCacheCheckBox'
                     layout: (LayoutFrame -160 1 101 0 -4 1 124 0)
-                    enableChannel: notSearchForSameContents
+                    enableChannel: searchForSameContents
                     tabable: true
                     model: searchOnlyInCache
                     translateLabel: true
                   )
+                 (CheckToggleSpec
+                    name: 'EnableSameContentsCheckToggle'
+                    layout: (LayoutOrigin -334 1 104 0)
+                    model: searchForSameContents
+                    isTriggerOnDown: true
+                    showLamp: false
+                    lampColor: (Color 100.0 100.0 0.0)
+                  )
                  )
                
               )
@@ -780,11 +791,7 @@
 !
 
 notSearchForSameContents
-
-    notSearchForSameContents isNil ifTrue:[
-        notSearchForSameContents := true asValue.
-    ].
-    ^ notSearchForSameContents.
+    ^ BlockValue forLogicalNot:self searchForSameContents
 !
 
 rememberInCache
@@ -833,6 +840,13 @@
     ^ searchDirectoryHolder.
 !
 
+searchForSameContents
+    searchForSameContents isNil ifTrue:[
+        searchForSameContents := false asValue.
+    ].
+    ^ searchForSameContents.
+!
+
 searchOnlyInCache
     searchOnlyInCache isNil ifTrue:[
         searchOnlyInCache := false asValue.
@@ -1352,5 +1366,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.31 2004-03-16 08:51:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.32 2004-03-16 16:56:27 cg Exp $'
 ! !