equal
deleted
inserted
replaced
547 fileName |
547 fileName |
548 ^ contentsItem fileName |
548 ^ contentsItem fileName |
549 ! |
549 ! |
550 |
550 |
551 fileName:aFilename |
551 fileName:aFilename |
552 self halt. |
552 self halt:'unimplemented'. |
553 contentsItem := DirectoryContents contentsItemForFileName:aFilename |
553 contentsItem := DirectoryContents contentsItemForFileName:aFilename |
554 |
554 |
555 "/ fileName = aFilename ifFalse:[ |
555 "/ fileName = aFilename ifFalse:[ |
556 "/ fileName := aFilename. |
556 "/ fileName := aFilename. |
557 "/ self changed:#label |
557 "/ self changed:#label |
686 ! ! |
686 ! ! |
687 |
687 |
688 !HierarchicalFileList::HierarchicalFileItem methodsFor:'instance creation'! |
688 !HierarchicalFileList::HierarchicalFileItem methodsFor:'instance creation'! |
689 |
689 |
690 fileName:aFilename fileInfo:aFileInfoOrNil |
690 fileName:aFilename fileInfo:aFileInfoOrNil |
691 self halt. |
691 self halt:'unimplemented'. |
692 "/ fileName := aFilename. |
692 "/ fileName := aFilename. |
693 "/ fileInfo := aFileInfoOrNil. |
693 "/ fileInfo := aFileInfoOrNil. |
694 ! ! |
694 ! ! |
695 |
695 |
696 !HierarchicalFileList::HierarchicalFileItem methodsFor:'invalidate'! |
696 !HierarchicalFileList::HierarchicalFileItem methodsFor:'invalidate'! |
1255 ! ! |
1255 ! ! |
1256 |
1256 |
1257 !HierarchicalFileList class methodsFor:'documentation'! |
1257 !HierarchicalFileList class methodsFor:'documentation'! |
1258 |
1258 |
1259 version |
1259 version |
1260 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.67 2008-03-10 07:09:09 stefan Exp $' |
1260 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.68 2008-10-20 14:55:49 cg Exp $' |
1261 ! ! |
1261 ! ! |
1262 |
1262 |
1263 HierarchicalFileList::Directory initialize! |
1263 HierarchicalFileList::Directory initialize! |