FindFileApplication.st
changeset 6107 745d91a22e10
parent 6094 ad13d826103c
child 6109 aed06872e73e
--- 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 $'
 ! !