--- a/HierarchicalFileList.st	Sun Mar 02 21:39:42 2003 +0100
+++ b/HierarchicalFileList.st	Mon Mar 03 11:21:56 2003 +0100
@@ -831,6 +831,17 @@
     ^ icon
 !
 
+label
+    "returns the printable name, the baseName
+    "
+    contentsItem fileName isRootDirectory ifTrue:[
+        OperatingSystem isMSWINDOWSlike ifTrue:[
+            ^ contentsItem fileName pathName
+        ]
+    ].
+    ^ contentsItem fileName baseName
+!
+
 makeIconGray:something
     "set the value of the instance variable 'makeIconGray' (automatically generated)"
 
@@ -1142,5 +1153,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.42 2003-01-20 11:55:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.43 2003-03-03 10:21:56 penk Exp $'
 ! !