equal
deleted
inserted
replaced
484 self directoryNamed:'.' |
484 self directoryNamed:'.' |
485 " |
485 " |
486 ! ! |
486 ! ! |
487 |
487 |
488 !DirectoryStream methodsFor:'access-reading'! |
488 !DirectoryStream methodsFor:'access-reading'! |
|
489 |
|
490 contents |
|
491 "answer all of the directory entries as an OrderedCollection" |
|
492 |
|
493 |contents| |
|
494 |
|
495 contents := OrderedCollection new. |
|
496 [self atEnd] whileFalse:[ |
|
497 |l| |
|
498 l := self nextLine. |
|
499 l isNil ifTrue:[ |
|
500 ^ contents |
|
501 ]. |
|
502 contents add:l |
|
503 ]. |
|
504 ^ contents |
|
505 ! |
489 |
506 |
490 nextLine |
507 nextLine |
491 "return the next filename as a string" |
508 "return the next filename as a string" |
492 |
509 |
493 |prevEntry nextEntry isUnix| |
510 |prevEntry nextEntry isUnix| |
776 ! ! |
793 ! ! |
777 |
794 |
778 !DirectoryStream class methodsFor:'documentation'! |
795 !DirectoryStream class methodsFor:'documentation'! |
779 |
796 |
780 version |
797 version |
781 ^ '$Id: DirectoryStream.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
798 ^ '$Id: DirectoryStream.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
782 ! |
799 ! |
783 |
800 |
784 version_CVS |
801 version_CVS |
785 ^ '§Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.73 2010/02/09 18:13:24 stefan Exp §' |
802 ^ 'Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.74 2010/04/30 16:48:14 stefan Exp §' |
786 ! |
803 ! |
787 |
804 |
788 version_SVN |
805 version_SVN |
789 ^ '$Id: DirectoryStream.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
806 ^ '$Id: DirectoryStream.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
790 ! ! |
807 ! ! |
|
808 |