--- a/DirectoryContentsBrowser.st Mon Mar 03 11:20:44 2003 +0100
+++ b/DirectoryContentsBrowser.st Mon Mar 03 11:23:54 2003 +0100
@@ -1,26 +1,26 @@
"{ Package: 'stx:libtool' }"
AbstractFileBrowser subclass:#DirectoryContentsBrowser
- instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
- fileDescriptionIndex iconExtent tableColumns previewIndex
- updateToExternFileHolderLock inDropMode draggedItem canDropItem
- viewBrowserMenu updateContentsSelection selectionInFileList
- contentsBrowser browserItemList matchBlock updateTask
- directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
- sortBlockChangeFlag isBusy changeSema filteredItems allItems
- diskUsageInfo diskUsageUpdateProcess'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Tools-File'
+ instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
+ fileDescriptionIndex iconExtent tableColumns previewIndex
+ updateToExternFileHolderLock inDropMode draggedItem canDropItem
+ viewBrowserMenu updateContentsSelection selectionInFileList
+ contentsBrowser browserItemList matchBlock updateTask
+ directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
+ sortBlockChangeFlag isBusy changeSema filteredItems allItems
+ diskUsageInfo diskUsageUpdateProcess'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Tools-File'
!
Object subclass:#DirectoryContentsItem
- instanceVariableNames:'fileName fileInfo icon fileType
- contentsBrowserChangeModificationTime suffix preview group owner
- timeAndDate mimeType iconKey mimeTypeForContents'
- classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'
- poolDictionaries:''
- privateIn:DirectoryContentsBrowser
+ instanceVariableNames:'fileName fileInfo icon fileType
+ contentsBrowserChangeModificationTime suffix preview group owner
+ timeAndDate mimeType iconKey mimeTypeForContents'
+ classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'
+ poolDictionaries:''
+ privateIn:DirectoryContentsBrowser
!
!DirectoryContentsBrowser class methodsFor:'documentation'!
@@ -675,6 +675,7 @@
#enabled: #viewDetails
#label: 'View Owner'
#translateLabel: true
+ #isVisible: #userContextAvailable
#hideMenuOnActivated: false
#indication: #viewOwner
)
@@ -682,6 +683,7 @@
#enabled: #viewDetails
#label: 'View Group'
#translateLabel: true
+ #isVisible: #userContextAvailable
#hideMenuOnActivated: false
#indication: #viewGroup
)
@@ -2113,7 +2115,7 @@
((isDir and:[showDir]) or:[isDir not and:[filterBlock value:aItem baseName]]) ifTrue:[
isDir not ifTrue:[noOfAddedFiles := noOfAddedFiles + 1].
newItemList add:aItem
- ]
+ ].
].
].
self noOfAddedFiles:noOfAddedFiles noOfFiles:noOfFiles.
@@ -2865,5 +2867,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.86 2003-02-27 17:08:30 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.87 2003-03-03 10:23:54 penk Exp $'
! !