DirectoryContentsBrowser.st
changeset 4648 f36ffc19982c
parent 4625 5497e3c05454
child 4652 40e96ac7d988
--- 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 $'
 ! !