--- a/FindFileApplication.st Tue Oct 19 18:37:58 2004 +0200
+++ b/FindFileApplication.st Tue Oct 19 19:09:59 2004 +0200
@@ -21,7 +21,8 @@
accessLock searchTask expanded searchRecursively selectionHolder
hasListEntries targetApplication useLocate useGrep
rememberInCache searchOnlyInCache searchForSameContents
- matchedFilesList shownListHolder'
+ matchedFilesList shownListHolder contentsInfoCache
+ contentsInfoCacheAccessLock'
classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache'
poolDictionaries:''
category:'Interface-Tools-File'
@@ -472,6 +473,12 @@
)
! !
+!FindFileApplication class methodsFor:'startup & release'!
+
+releaseContentsInfoCache
+ ContentsInfoCache := ContentsInfoCacheAccessLock := nil.
+! !
+
!FindFileApplication class methodsFor:'tableColumns specs'!
searchResultTable
@@ -543,7 +550,7 @@
!
clearCache
- ContentsInfoCache := nil
+ contentsInfoCache := nil
!
clearResultList
@@ -1174,11 +1181,14 @@
!
contentsInfoCache
- ContentsInfoCache isNil ifTrue:[
- ContentsInfoCache := Dictionary new.
- ContentsInfoCacheAccessLock := Semaphore forMutualExclusion.
+ contentsInfoCache isNil ifTrue:[
+ ContentsInfoCache isNil ifTrue:[
+ ContentsInfoCache := Dictionary new.
+ ContentsInfoCacheAccessLock := Semaphore forMutualExclusion.
+ ].
+ contentsInfoCache := ContentsInfoCache
].
- ^ ContentsInfoCache
+ ^ contentsInfoCache
!
doFindFileNamed:namePatterns directories:searchDirectories ignoreCase:ignCaseInName
@@ -1601,12 +1611,12 @@
release
self stopSearchTask.
- ContentsInfoCache := ContentsInfoCacheAccessLock := nil.
+ contentsInfoCache := nil.
^ super release
! !
!FindFileApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.63 2004-10-16 12:30:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.64 2004-10-19 17:08:53 cg Exp $'
! !