--- a/HierarchicalFileList.st	Mon Aug 19 17:59:57 2002 +0200
+++ b/HierarchicalFileList.st	Mon Aug 19 18:08:03 2002 +0200
@@ -14,24 +14,24 @@
 "{ Package: 'stx:libwidg2' }"
 
 HierarchicalList subclass:#HierarchicalFileList
-        instanceVariableNames:'icons matchBlock showCursor'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-Support'
+	instanceVariableNames:'icons matchBlock showCursor'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Support'
 !
 
 HierarchicalItem subclass:#File
-        instanceVariableNames:'fileName baseName icon'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:HierarchicalFileList
+	instanceVariableNames:'fileName icon'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HierarchicalFileList
 !
 
 HierarchicalFileList::File subclass:#Directory
-        instanceVariableNames:'modificationTime'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:HierarchicalFileList::File
+	instanceVariableNames:'modificationTime'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HierarchicalFileList::File
 !
 
 !HierarchicalFileList class methodsFor:'documentation'!
@@ -333,9 +333,8 @@
 baseName
     "returns the baseName
     "
-    ^ baseName
-
-
+    ^ fileName baseName.
+"/    ^ baseName
 !
 
 children
@@ -356,7 +355,7 @@
     "instance creation
     "
     fileName := fname.
-    baseName := fname baseName.
+"/    baseName := fname baseName.
 !
 
 icon
@@ -376,9 +375,7 @@
 label
     "returns the printable name, the baseName
     "
-    ^ baseName
-
-
+    ^ self baseName
 !
 
 pathName
@@ -620,5 +617,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.15 2002-08-09 09:43:51 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.16 2002-08-19 16:08:03 cg Exp $'
 ! !