equal
deleted
inserted
replaced
610 Filename components:'foo/bar' |
610 Filename components:'foo/bar' |
611 Filename components:'foo' |
611 Filename components:'foo' |
612 " |
612 " |
613 |
613 |
614 "Modified: 8.9.1997 / 00:30:57 / cg" |
614 "Modified: 8.9.1997 / 00:30:57 / cg" |
|
615 ! |
|
616 |
|
617 directorySuffix |
|
618 "Return the OS dependent directory suffix string, or nil if there is none. |
|
619 The default is nil here, redefined for VMS" |
|
620 |
|
621 (self ~~ ConcreteClass) ifTrue:[ |
|
622 ^ ConcreteClass directorySuffix |
|
623 ]. |
|
624 |
|
625 ^ nil |
615 ! |
626 ! |
616 |
627 |
617 errorReporter |
628 errorReporter |
618 "who knows the signals to report errors?" |
629 "who knows the signals to report errors?" |
619 |
630 |
2714 ! ! |
2725 ! ! |
2715 |
2726 |
2716 !Filename class methodsFor:'documentation'! |
2727 !Filename class methodsFor:'documentation'! |
2717 |
2728 |
2718 version |
2729 version |
2719 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.103 1997-09-20 21:51:38 cg Exp $' |
2730 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.104 1997-09-22 18:59:22 cg Exp $' |
2720 ! ! |
2731 ! ! |
2721 Filename initialize! |
2732 Filename initialize! |