equal
deleted
inserted
replaced
478 ! ! |
478 ! ! |
479 |
479 |
480 !FileDirectory methodsFor:'private'! |
480 !FileDirectory methodsFor:'private'! |
481 |
481 |
482 filenameFor:fileName |
482 filenameFor:fileName |
483 "create & return a fileName object for an entry in myself" |
483 "return a filename representing the argument, fileName |
484 |
484 either in myself (if the arg is a releative path) or absolute otherwise." |
485 |f| |
485 |
486 |
486 ^ pathName asFilename filenameFor:fileName |
487 f := fileName asFilename. |
|
488 f isAbsolute ifTrue:[^ f]. |
|
489 ^ (pathName asFilename construct:fileName) |
|
490 ! |
487 ! |
491 |
488 |
492 getFullPathName |
489 getFullPathName |
493 "make my pathname be a full pathname - i.e. starting at root" |
490 "make my pathname be a full pathname - i.e. starting at root" |
494 |
491 |
634 ! ! |
631 ! ! |
635 |
632 |
636 !FileDirectory class methodsFor:'documentation'! |
633 !FileDirectory class methodsFor:'documentation'! |
637 |
634 |
638 version |
635 version |
639 ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.42 2002-05-15 08:26:35 cg Exp $' |
636 ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.43 2003-01-27 15:46:28 cg Exp $' |
640 ! ! |
637 ! ! |
|
638 |
641 FileDirectory initialize! |
639 FileDirectory initialize! |