--- a/DirectoryContentsBrowser.st	Mon Oct 14 18:02:37 2002 +0200
+++ b/DirectoryContentsBrowser.st	Mon Oct 14 18:04:15 2002 +0200
@@ -1,26 +1,26 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractFileBrowser subclass:#DirectoryContentsBrowser
-	instanceVariableNames:'readDirectoryTask updateDirectoryContentsTask updateColumnsTask
-		updateFromSensorTask modificationTime directory columnDescriptors
-		filterBlock iconIndex fileDescriptionIndex iconExtent
-		tableColumns currentSortOrder previewIndex allItemsList
-		currentItemList wantSelectFiles updateToExternFileHolderLock
-		updateTaskSema inDropMode draggedItem canDropItem viewBrowserMenu
-		updateContentsSelection selectionInFileList contentsBrowser
-		browserItemList sel'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Tools-File'
+        instanceVariableNames:'readDirectoryTask updateDirectoryContentsTask updateColumnsTask
+                updateFromSensorTask modificationTime directory columnDescriptors
+                filterBlock iconIndex fileDescriptionIndex iconExtent
+                tableColumns currentSortOrder previewIndex allItemsList
+                currentItemList wantSelectFiles updateToExternFileHolderLock
+                updateTaskSema inDropMode draggedItem canDropItem viewBrowserMenu
+                updateContentsSelection selectionInFileList contentsBrowser
+                browserItemList sel'
+        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'!
@@ -895,7 +895,7 @@
     column width:w.
     column height:h.
 
-Processor activeProcess ~~ self windowGroup process ifTrue:[self halt].
+"/Processor activeProcess ~~ self windowGroup process ifTrue:[self halt].
     self updateColumnsTaskStop.
     browserItemList do:[:el| el resetImageFile ].
     contentsBrowser columnDescriptors:columnDescriptors.
@@ -1915,7 +1915,7 @@
 
 updateColumnsTaskRestart
 
-Processor activeProcess ~~ self windowGroup process ifTrue:[self halt].
+"/Processor activeProcess ~~ self windowGroup process ifTrue:[self halt].
     self updateColumnsTaskStop.
     self updateColumnsTaskStart.
 !
@@ -2215,20 +2215,6 @@
     ^ self suffixes at:1
 !
 
-link
-    "returns the type of the file
-    "
-    self halt.
-    ^ self isSymbolicLink.
-!
-
-linkInfo
-    "returns the type of the file
-    "
-self halt.
-    ^ self fileName linkInfo.
-!
-
 mimeType
     "return the value of the instance variable 'mimeType' (automatically generated)"
 
@@ -2476,13 +2462,6 @@
     ^ owner
 !
 
-pathName
-    "returns the pathName of the file
-    "
-self halt.
-    ^ fileName pathName.
-!
-
 permissions
     "returns the permissions as printable string
     "
@@ -2561,23 +2540,6 @@
         ].
     ].
     ^ fileInfo
-!
-
-valueAt:aKey
-    self getFileInfo.
-    fileInfo isNil ifTrue:[
-        ^ nil.
-    ].
-self halt.
-    aKey == #size ifTrue:[^ fileInfo size].
-    aKey == #mode ifTrue:[^ fileInfo mode].
-    aKey == #type ifTrue:[^ fileInfo type].
-    aKey == #uid ifTrue:[^ fileInfo uid].
-    aKey == #gid ifTrue:[^ fileInfo gid].
-    aKey == #accessed ifTrue:[^ fileInfo accessTime].
-    aKey == #modified ifTrue:[^ fileInfo modificationTime].
-
-    ^ nil
 ! !
 
 !DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'queries'!
@@ -2619,5 +2581,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.20 2002-10-14 16:02:32 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.21 2002-10-14 16:04:15 penk Exp $'
 ! !