equal
deleted
inserted
replaced
4577 ! ! |
4577 ! ! |
4578 |
4578 |
4579 !Filename methodsFor:'private-accessing'! |
4579 !Filename methodsFor:'private-accessing'! |
4580 |
4580 |
4581 getName |
4581 getName |
|
4582 <resource: #obsolete> |
4582 "get the raw filename" |
4583 "get the raw filename" |
4583 |
4584 |
4584 ^ nameString |
4585 ^ nameString |
|
4586 ! |
|
4587 |
|
4588 nameString |
|
4589 "raw access to nameString - req'd for xml-store/reload" |
|
4590 |
|
4591 ^ nameString |
|
4592 ! |
|
4593 |
|
4594 nameString:aString |
|
4595 "raw access to nameString - req'd for xml-store/reload" |
|
4596 |
|
4597 nameString := aString |
4585 ! |
4598 ! |
4586 |
4599 |
4587 setName:aString |
4600 setName:aString |
4588 "set the filename" |
4601 "set the filename" |
4589 |
4602 |
5585 " |
5598 " |
5586 |
5599 |
5587 "Modified: 18.1.1996 / 21:36:27 / cg" |
5600 "Modified: 18.1.1996 / 21:36:27 / cg" |
5588 ! |
5601 ! |
5589 |
5602 |
5590 nameString |
|
5591 "raw access to nameString - req'd for xml-store/reload" |
|
5592 |
|
5593 ^ nameString |
|
5594 ! |
|
5595 |
|
5596 nameString:aString |
|
5597 "raw access to nameString - req'd for xml-store/reload" |
|
5598 |
|
5599 nameString := aString |
|
5600 ! |
|
5601 |
|
5602 pathName |
5603 pathName |
5603 "return the full pathname of the file represented by the receiver, |
5604 "return the full pathname of the file represented by the receiver, |
5604 as a string. This will not include ..'s. |
5605 as a string. This will not include ..'s. |
5605 If the path represented by the receiver does NOT represent a valid path, |
5606 If the path represented by the receiver does NOT represent a valid path, |
5606 no compression will be done (for now; this may change). |
5607 no compression will be done (for now; this may change). |