--- a/DirectoryContentsBrowser.st Tue Oct 08 16:37:47 2002 +0200
+++ b/DirectoryContentsBrowser.st Tue Oct 08 21:27:48 2002 +0200
@@ -1,26 +1,26 @@
"{ Package: 'stx:libtool' }"
AbstractFileBrowser subclass:#DirectoryContentsBrowser
- instanceVariableNames:'browser updateDirectoryContentsTask modificationTime directory
- columnDescriptors filterBlock iconIndex fileDescriptionIndex
- iconExtent tableColumns sortBlock currentSortOrder previewIndex
- allItemsList updateColumnsTask currentItemList wantSelectFiles
- updateToExternFileHolderLock updateTaskSema updateFromSensorTask
- inDropMode draggedItem canDropItem viewBrowserMenu'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Tools-File'
+ instanceVariableNames:'browser updateDirectoryContentsTask modificationTime directory
+ columnDescriptors filterBlock iconIndex fileDescriptionIndex
+ iconExtent tableColumns sortBlock currentSortOrder previewIndex
+ allItemsList updateColumnsTask currentItemList wantSelectFiles
+ updateToExternFileHolderLock updateTaskSema updateFromSensorTask
+ inDropMode draggedItem canDropItem viewBrowserMenu'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Tools-File'
!
Object subclass:#DirectoryContentsItem
- instanceVariableNames:'fileName fileInfo icon fileType link linkInfo
- contentsBrowserChangeModificationTime isDirectory baseName suffix
- preview group owner pathName permissions size timeAndDate date
- lastButOneSuffix suffixes modificationTime modifiedByMe mimeType
- iconKey'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DirectoryContentsBrowser
+ instanceVariableNames:'fileName fileInfo icon fileType link linkInfo
+ contentsBrowserChangeModificationTime isDirectory baseName suffix
+ preview group owner pathName permissions size timeAndDate date
+ lastButOneSuffix suffixes modificationTime modifiedByMe mimeType
+ iconKey'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DirectoryContentsBrowser
!
!DirectoryContentsBrowser class methodsFor:'documentation'!
@@ -1822,18 +1822,18 @@
^ true
].
"/ update icon for visible items by contents
- desc := self findNextBuildInDescFor:[:n|
- (n iconKey == #file
- and:[n mimeTypeForContents asSymbol ~= #unknown])
- ].
- desc notNil ifTrue:[
- icon := self getIconForMimeTypeByContents:desc.
- desc icon:icon.
- (icon notNil and:[iconIndex ~~ 0]) ifTrue:[
- browser invalidateVisibleRow:desc colAt:iconIndex
- ].
- ^ true
- ].
+"/ desc := self findNextBuildInDescFor:[:n|
+"/ (n iconKey == #file
+"/ and:[n mimeTypeForContents asSymbol ~= #unknown])
+"/ ].
+"/ desc notNil ifTrue:[
+"/ icon := self getIconForMimeTypeByContents:desc.
+"/ desc icon:icon.
+"/ (icon notNil and:[iconIndex ~~ 0]) ifTrue:[
+"/ browser invalidateVisibleRow:desc colAt:iconIndex
+"/ ].
+"/ ^ true
+"/ ].
"/ update file info for visible items if file info column is shown
fileDescriptionIndex ~~ 0 ifTrue:[
desc := self findNextBuildInDescFor:[:n| n fileType isNil ].
@@ -2292,7 +2292,7 @@
info := fileName asAbsoluteFilename info.
info isNil ifTrue:[ ^ false].
- time := info modified.
+ time := info modificationTime.
contentsBrowserChangeModificationTime isNil ifTrue:[
contentsBrowserChangeModificationTime := time.
^ false.
@@ -2532,8 +2532,8 @@
fileInfo at:#type put:(info type).
fileInfo at:#uid put:(info uid).
fileInfo at:#gid put:(info gid).
- fileInfo at:#accessed put:(info accessed).
- fileInfo at:#modified put:(info modified).
+ fileInfo at:#accessed put:(info accessTime).
+ fileInfo at:#modified put:(info modificationTime).
]
]
].
@@ -2582,5 +2582,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.10 2002-10-08 14:37:47 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.11 2002-10-08 19:27:15 cg Exp $'
! !