equal
deleted
inserted
replaced
2788 nameString storeOn:aStream. |
2788 nameString storeOn:aStream. |
2789 aStream nextPutAll:' asFilename)' |
2789 aStream nextPutAll:' asFilename)' |
2790 ! ! |
2790 ! ! |
2791 |
2791 |
2792 !Filename methodsFor:'private accessing'! |
2792 !Filename methodsFor:'private accessing'! |
|
2793 |
|
2794 getName |
|
2795 "get the raw filename" |
|
2796 |
|
2797 ^ nameString |
|
2798 ! |
2793 |
2799 |
2794 setName:aString |
2800 setName:aString |
2795 "set the filename" |
2801 "set the filename" |
2796 |
2802 |
2797 nameString := self nameWithSpecialExpansions:aString. |
2803 nameString := self nameWithSpecialExpansions:aString. |
4102 ! ! |
4108 ! ! |
4103 |
4109 |
4104 !Filename class methodsFor:'documentation'! |
4110 !Filename class methodsFor:'documentation'! |
4105 |
4111 |
4106 version |
4112 version |
4107 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.203 2001-11-19 18:14:30 cg Exp $' |
4113 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.204 2001-11-20 22:16:59 cg Exp $' |
4108 ! ! |
4114 ! ! |
4109 Filename initialize! |
4115 Filename initialize! |