--- a/HierarchicalFileList.st Mon Oct 20 16:55:12 2008 +0200
+++ b/HierarchicalFileList.st Mon Oct 20 16:55:49 2008 +0200
@@ -549,7 +549,7 @@
!
fileName:aFilename
-self halt.
+self halt:'unimplemented'.
contentsItem := DirectoryContents contentsItemForFileName:aFilename
"/ fileName = aFilename ifFalse:[
@@ -688,7 +688,7 @@
!HierarchicalFileList::HierarchicalFileItem methodsFor:'instance creation'!
fileName:aFilename fileInfo:aFileInfoOrNil
-self halt.
+self halt:'unimplemented'.
"/ fileName := aFilename.
"/ fileInfo := aFileInfoOrNil.
! !
@@ -1257,7 +1257,7 @@
!HierarchicalFileList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.67 2008-03-10 07:09:09 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.68 2008-10-20 14:55:49 cg Exp $'
! !
HierarchicalFileList::Directory initialize!