equal
deleted
inserted
replaced
773 isRemoteDirectory |
773 isRemoteDirectory |
774 ^ self type == #remoteDirectory |
774 ^ self type == #remoteDirectory |
775 ! |
775 ! |
776 |
776 |
777 isSpecialFile |
777 isSpecialFile |
778 |t| |
778 |type| |
779 |
779 |
780 t := self type. |
780 type := self type. |
781 ^ (t ~= #directory and:[t ~~ #regular and:[t ~~ #symbolicLink]]) |
781 |
|
782 ^ (type ~~ #directory |
|
783 and:[type ~~ #remoteDirectory |
|
784 and:[type ~~ #regular |
|
785 and:[type ~~ #symbolicLink |
|
786 ]]]) |
782 ! |
787 ! |
783 |
788 |
784 isSymbolicLink |
789 isSymbolicLink |
785 ^ self type == #isymbolicLink |
790 ^ self type == #symbolicLink |
786 ! ! |
791 ! ! |
787 |
792 |
788 !DirectoryContents class methodsFor:'documentation'! |
793 !DirectoryContents class methodsFor:'documentation'! |
789 |
794 |
790 version |
795 version |
791 ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.54 2009-04-30 11:38:44 ca Exp $' |
796 ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.55 2009-12-16 15:15:37 ca Exp $' |
|
797 ! |
|
798 |
|
799 version_CVS |
|
800 ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.55 2009-12-16 15:15:37 ca Exp $' |
792 ! ! |
801 ! ! |
793 |
802 |
794 DirectoryContents initialize! |
803 DirectoryContents initialize! |