equal
deleted
inserted
replaced
544 ]. |
544 ]. |
545 ^ false |
545 ^ false |
546 ! |
546 ! |
547 |
547 |
548 isHidden |
548 isHidden |
549 "return true, if such a file is hidden." |
549 "return true, if such a file is hidden. |
550 |
550 On MSDOS, a name starting with a period is considered hidden |
|
551 AND a file with a hidden attribute is so." |
|
552 |
|
553 |baseName| |
|
554 |
|
555 baseName := self baseName. |
|
556 ((baseName startsWith:'.') and:[baseName ~= '..']) ifTrue:[^ true]. |
551 ^ OperatingSystem isHidden:(self osNameForFile) |
557 ^ OperatingSystem isHidden:(self osNameForFile) |
552 ! |
558 ! |
553 |
559 |
554 isRootDirectory |
560 isRootDirectory |
555 "return true, if I represent a root directory |
561 "return true, if I represent a root directory |
871 ! ! |
877 ! ! |
872 |
878 |
873 !PCFilename class methodsFor:'documentation'! |
879 !PCFilename class methodsFor:'documentation'! |
874 |
880 |
875 version |
881 version |
876 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.48 2009-07-22 20:44:27 stefan Exp $' |
882 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.49 2009-10-28 14:02:04 cg Exp $' |
877 ! ! |
883 ! |
|
884 |
|
885 version_CVS |
|
886 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.49 2009-10-28 14:02:04 cg Exp $' |
|
887 ! ! |