--- a/DirectoryContentsBrowser.st	Mon Oct 14 21:33:02 2002 +0200
+++ b/DirectoryContentsBrowser.st	Tue Oct 15 10:40:10 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'!
@@ -2581,5 +2581,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.21 2002-10-14 16:04:15 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.22 2002-10-15 08:39:53 penk Exp $'
 ! !