# HG changeset patch
# User penk
# Date 1079352287 -3600
# Node ID 66d5e36a16d8b9f0135e1e250ba1dc34bd899569
# Parent  3682c9e4fb0aa840a2b784fa4a1ecaacc87e409e
update if fileItem is modified

diff -r 3682c9e4fb0a -r 66d5e36a16d8 DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Mon Mar 15 11:12:16 2004 +0100
+++ b/DirectoryContentsBrowser.st	Mon Mar 15 13:04:47 2004 +0100
@@ -20,7 +20,7 @@
 		directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
 		sortBlockChangeFlag isBusy changeSema filteredItems allItems
 		diskUsageInfo diskUsageUpdateProcess'
-	classVariableNames:''
+	classVariableNames:'Debug'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
 !
@@ -116,10 +116,6 @@
 
 !DirectoryContentsBrowser class methodsFor:'constant'!
 
-debug
-    ^ false
-!
-
 updateTaskCyleTime
     "time (in ms) to search for changed directories or changed columns"
 
@@ -2148,7 +2144,7 @@
 
     | oldModificationTime  desc|
     directory notNil ifTrue:[
-        directory exists not ifTrue:[
+        directory exists ifFalse:[
             self directoryChangeFlag:true.
             ^ self
         ].
@@ -2200,7 +2196,7 @@
 
 debugMessage:aString
 
-    self class debug ifTrue:[
+    Debug == true ifTrue:[
         Transcript showCR:aString
     ].
 !
@@ -2245,15 +2241,15 @@
             addItems add:aNewItem.
         ]
     ].
-"/    theAllItems := self allItems.
-"/    remItems notEmpty ifTrue:[
-"/        theAllItems removeAll:remItems        
-"/    ].
-"/    addItems do:[: aNewItem |
-"/        (theAllItems includes:aNewItem) not ifTrue:[
-"/            theAllItems add:aNewItem.
-"/        ]
-"/    ].
+    theAllItems := self allItems.
+    remItems notEmpty ifTrue:[
+        theAllItems removeAll:remItems        
+    ].
+    addItems do:[: aNewItem |
+        (theAllItems includes:aNewItem) not ifTrue:[
+            theAllItems add:aNewItem.
+        ]
+    ].
 
     self
         enqueueMessage:#value 
@@ -3051,6 +3047,14 @@
     ^ modTime printStringFormat:format.
 ! !
 
+!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'printing'!
+
+printOn:aStream
+    super printOn:aStream.
+    aStream space.
+    aStream nextPutAll:fileName baseName printString.
+! !
+
 !DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'private'!
 
 getFileInfo
@@ -3106,5 +3110,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.152 2004-03-09 08:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.153 2004-03-15 12:04:47 penk Exp $'
 ! !