--- a/AbstractFileBrowser.st	Thu Jan 09 10:40:18 2003 +0100
+++ b/AbstractFileBrowser.st	Thu Jan 09 15:41:24 2003 +0100
@@ -1,13 +1,13 @@
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#AbstractFileBrowser
-        instanceVariableNames:'aspects'
-        classVariableNames:'DirectoryHistory DefaultCommandPerMIME RuntimeAspects
-                DirectoryBookmarks LastEnforcedNameSpace CommandHistory
-                DefaultCommandPerSuffix CommandHistorySize LastFileDiffFile
-                DefaultFilters CurrentSelection RootHolder'
-        poolDictionaries:''
-        category:'Interface-Tools-File'
+	instanceVariableNames:'aspects'
+	classVariableNames:'DirectoryHistory DefaultCommandPerMIME RuntimeAspects
+		DirectoryBookmarks LastEnforcedNameSpace CommandHistory
+		DefaultCommandPerSuffix CommandHistorySize LastFileDiffFile
+		DefaultFilters CurrentSelection RootHolder'
+	poolDictionaries:''
+	category:'Interface-Tools-File'
 !
 
 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
@@ -15,53 +15,53 @@
 "
  The following class instance variables are inherited by this class:
 
-        ApplicationModel - ClassResources
-        Model - 
-        Object - 
+	ApplicationModel - ClassResources
+	Model - 
+	Object - 
 "
 !
 
 Object subclass:#Clipboard
-        instanceVariableNames:'method files'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'method files'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#CodeExecutionLock
-        instanceVariableNames:'locked'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'locked'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 List subclass:#DirectoryHistory
-        instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
-                backForwardList backForwardIndex'
-        classVariableNames:'HistorySize'
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
+		backForwardList backForwardIndex'
+	classVariableNames:'HistorySize'
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#DirectoryHistoryItem
-        instanceVariableNames:'path position'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser::DirectoryHistory
+	instanceVariableNames:'path position'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser::DirectoryHistory
 !
 
 OrderedSet subclass:#FilenameHistory
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#SaveAspectItem
-        instanceVariableNames:'value isHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'value isHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 
@@ -1929,7 +1929,7 @@
             n2 := stream2 nextBytes:n1 into:buffer2 startingAt:1.
 
             n1 ~~ n2 ifTrue:[
-self halt.
+"/self halt.
             ] ifFalse:[
                 buffer1 ~= buffer2 ifTrue:[
                     idx := (1 to:n1) findFirst:[:idx | (buffer1 at:idx) ~~ (buffer2 at:idx)].
@@ -1945,14 +1945,14 @@
             blockOffset := blockOffset + n1.
         ].
         stream2 atEnd ifFalse:[
-    self halt.
+"/    self halt.
         ].
     ] ensure:[
         stream1 notNil ifTrue:[stream1 close].
         stream2 notNil ifTrue:[stream2 close].
     ].
 
-self halt.
+"/self halt.
 "/    action := [:command | 
 "/                self addToCommandHistory:command for:fileName.
 "/                self executeCommand:command.
@@ -2095,6 +2095,7 @@
 
 updateAndSelect:aColOfFiles
 
+    DirectoryContents flushCachedDirectoryFor:(self getBestDirectory).
     self application:#DirectoryContentsBrowser do:#doUpdate.
     self application:#DirectoryTreeBrowser do:#doUpdate.
     
@@ -5516,5 +5517,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.76 2003-01-07 12:59:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.77 2003-01-09 14:41:24 penk Exp $'
 ! !