HierarchicalFileList.st
changeset 2536 c38f8c10dda3
parent 2525 665656ed718a
child 2583 02797ea5589d
equal deleted inserted replaced
2535:4df3f0a09b83 2536:c38f8c10dda3
   849 !
   849 !
   850 
   850 
   851 label
   851 label
   852     "returns the printable name, the baseName
   852     "returns the printable name, the baseName
   853     "
   853     "
   854     contentsItem fileName isRootDirectory ifTrue:[
   854     OperatingSystem isMSWINDOWSlike ifTrue:[
   855         OperatingSystem isMSWINDOWSlike ifTrue:[
   855         contentsItem fileName isRootDirectory ifTrue:[
   856             ^ contentsItem fileName pathName
   856             ^ contentsItem fileName pathName
   857         ]
   857         ]
   858     ].
   858     ].
   859     ^ contentsItem fileName baseName
   859     ^ contentsItem fileName baseName
   860 !
   860 !
  1235 ! !
  1235 ! !
  1236 
  1236 
  1237 !HierarchicalFileList class methodsFor:'documentation'!
  1237 !HierarchicalFileList class methodsFor:'documentation'!
  1238 
  1238 
  1239 version
  1239 version
  1240     ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.48 2003-06-13 10:57:54 penk Exp $'
  1240     ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.49 2003-07-09 16:36:46 penk Exp $'
  1241 ! !
  1241 ! !
  1242 
  1242 
  1243 HierarchicalFileList::Directory initialize!
  1243 HierarchicalFileList::Directory initialize!