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 ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.73 2010-02-09 18:13:24 stefan Exp $' |
798 ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.74 2010-04-30 16:48:14 stefan Exp $' |
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 ! ! |