equal
deleted
inserted
replaced
1052 (in the project-directory and named as <projectName>.prj)" |
1052 (in the project-directory and named as <projectName>.prj)" |
1053 |
1053 |
1054 |dir fn nm s| |
1054 |dir fn nm s| |
1055 |
1055 |
1056 dir := self directory asFilename. |
1056 dir := self directory asFilename. |
1057 nm := self name. |
1057 nm := self libraryName. |
1058 nm := nm copyFrom:(nm lastIndexOf:$/)+1. |
|
1059 fn := dir construct:nm. |
1058 fn := dir construct:nm. |
1060 fn := fn withSuffix:'prj'. |
1059 fn := fn withSuffix:'prj'. |
1061 |
1060 |
1062 fn exists ifTrue:[ |
1061 fn exists ifTrue:[ |
1063 fn copyTo:(fn pathName , '.bak') |
1062 fn copyTo:(fn pathName , '.bak') |
2616 ! ! |
2615 ! ! |
2617 |
2616 |
2618 !Project class methodsFor:'documentation'! |
2617 !Project class methodsFor:'documentation'! |
2619 |
2618 |
2620 version |
2619 version |
2621 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.103 1999-09-22 15:39:21 cg Exp $' |
2620 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.104 1999-09-22 16:26:29 cg Exp $' |
2622 ! ! |
2621 ! ! |
2623 Project initialize! |
2622 Project initialize! |