--- a/DirectoryContentsBrowser.st	Fri May 16 17:54:47 2003 +0200
+++ b/DirectoryContentsBrowser.st	Fri May 16 17:59:08 2003 +0200
@@ -1,25 +1,25 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractDirectoryBrowser subclass:#DirectoryContentsBrowser
-	instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
-		fileDescriptionIndex iconExtent tableColumns previewIndex
-		draggedItem viewBrowserMenu updateContentsSelection
-		selectionInFileList 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
+                draggedItem viewBrowserMenu updateContentsSelection
+                selectionInFileList 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'!
@@ -1107,11 +1107,14 @@
         self startDiskUsageInfoProcess.
     ].
     newDir := (self directoriesForFiles:aColOfFiles) first asCanonicalizedFilename. 
+    
     currentDir := self directory.
-    (currentDir notNil and:[newDir = currentDir asCanonicalizedFilename]) ifTrue:[
-        self selectFiles:aColOfFiles.
-        ^ self.
-    ].
+    currentDir notNil ifTrue:[
+        currentDir := currentDir asCanonicalizedFilename.
+        newDir = currentDir ifTrue:[
+            self selectFiles:aColOfFiles.
+            ^ self.
+        ].
     "/ change of the directory filename 
     self directory:newDir.
 !
@@ -2822,5 +2825,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.110 2003-05-16 12:38:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.111 2003-05-16 15:59:08 cg Exp $'
 ! !