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