--- a/DirectoryContentsBrowser.st Tue Mar 20 13:14:11 2012 +0100
+++ b/DirectoryContentsBrowser.st Tue Mar 20 13:27:06 2012 +0100
@@ -12,26 +12,26 @@
"{ Package: 'stx:libtool' }"
AbstractDirectoryBrowser subclass:#DirectoryContentsBrowser
- instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
- fileDescriptionIndex iconExtent tableColumns previewIndex
- draggedItem viewBrowserMenu updateContentsSelection
- selectionInFileList browserItemList matchBlock updateTask
- directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
- sortBlockChangeFlag isBusy changeSema filteredItems allItems
- diskUsageInfo diskUsageUpdateProcess multipleSelect
- doubleClickAction updateCycleSemaphore updatingColumns accessLock'
- classVariableNames:'Debug'
- poolDictionaries:''
- category:'Interface-Tools-File'
+ instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
+ fileDescriptionIndex iconExtent tableColumns previewIndex
+ draggedItem viewBrowserMenu updateContentsSelection
+ selectionInFileList browserItemList matchBlock updateTask
+ directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
+ sortBlockChangeFlag isBusy changeSema filteredItems allItems
+ diskUsageInfo diskUsageUpdateProcess multipleSelect
+ doubleClickAction updateCycleSemaphore updatingColumns accessLock'
+ classVariableNames:'Debug'
+ poolDictionaries:''
+ category:'Interface-Tools-File'
!
Object subclass:#DirectoryContentsItem
- instanceVariableNames:'fileName fileInfo icon fileType
- contentsBrowserChangeModificationTime suffix preview group owner
- timeAndDate mimeType iconKey mimeTypeForContents baseName'
- classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'
- poolDictionaries:''
- privateIn:DirectoryContentsBrowser
+ instanceVariableNames:'fileName fileInfo icon fileType
+ contentsBrowserChangeModificationTime suffix preview group owner
+ timeAndDate mimeType iconKey mimeTypeForContents baseName'
+ classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'
+ poolDictionaries:''
+ privateIn:DirectoryContentsBrowser
!
!DirectoryContentsBrowser class methodsFor:'documentation'!
@@ -1528,7 +1528,7 @@
].
].
- self directoryChanged. "/ to force update of the numberofshown files.
+ self directoryContentsChanged. "/ to force update of the numberOfShown files.
nextItem notNil ifTrue:[
self
enqueueMessage:#value
@@ -1539,7 +1539,7 @@
"/ self selectItems:(OrderedCollection with:nextItem).
].
- "Modified: / 20-03-2012 / 12:14:11 / cg"
+ "Modified: / 20-03-2012 / 13:22:48 / cg"
!
viewPreviewChanged
@@ -2401,7 +2401,6 @@
self setBrowserItemList:#().
directoryContentsChangeFlag := true.
- updatingColumns := true.
^ self.
self createItemList.
@@ -2414,19 +2413,23 @@
]
].
- "Modified: / 20-03-2012 / 12:54:37 / cg"
+ "Modified: / 20-03-2012 / 13:16:25 / cg"
!
directoryContentsChanged
|oldItems itemsToAdd itemsToRemove newItems newAllItems oldAllItems|
directory isNil ifTrue:[^ self].
+
+ filterChangeFlag := false.
+ updatingColumns := true.
+
newAllItems := self readDirectoryItems.
- newAllItems size > 150 ifTrue:[
- self createItemList.
- ^ self
- ].
+"/ newAllItems size > 150 ifTrue:[
+"/ self createItemList.
+"/ ^ self
+"/ ].
newItems := self evaluateFilter:newAllItems.
oldItems := filteredItems copy.
@@ -2465,7 +2468,7 @@
arguments:#().
filteredItems := newItems.
- "Modified: / 01-05-2011 / 08:24:29 / cg"
+ "Modified: / 20-03-2012 / 13:22:21 / cg"
!
evaluateFilter:anItemsList
@@ -3400,9 +3403,9 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.244 2012-03-20 12:14:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.245 2012-03-20 12:27:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.244 2012-03-20 12:14:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.245 2012-03-20 12:27:06 cg Exp $'
! !