--- 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 $'
! !