equal
deleted
inserted
replaced
1219 "Modified: / 22-02-2007 / 15:06:37 / cg" |
1219 "Modified: / 22-02-2007 / 15:06:37 / cg" |
1220 "Modified: / 26-10-2009 / 13:02:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1220 "Modified: / 26-10-2009 / 13:02:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1221 ! |
1221 ! |
1222 |
1222 |
1223 companyName_code |
1223 companyName_code |
|
1224 ^ self companyName_codeFor:self companyName |
|
1225 |
|
1226 " |
|
1227 self companyName_code |
|
1228 stx_libbasic3 companyName_code |
|
1229 " |
|
1230 |
|
1231 "Created: / 18-08-2006 / 16:20:42 / cg" |
|
1232 ! |
|
1233 |
|
1234 companyName_codeFor:aString |
1224 ^ String streamContents:[:s | |
1235 ^ String streamContents:[:s | |
1225 s nextPutLine:'companyName'. |
1236 s nextPutLine:'companyName'. |
1226 s nextPutLine:' "Return a companyname which will appear in <lib>.rc"'. |
1237 s nextPutLine:' "Return a companyname which will appear in <lib>.rc"'. |
1227 s cr; nextPutLine:' ^ ',self companyName storeString. |
1238 s cr; nextPutLine:' ^ ',aString storeString. |
1228 ]. |
1239 ]. |
1229 |
1240 |
1230 " |
1241 " |
1231 self companyName_code |
1242 self companyName_code |
1232 stx_libbasic3 companyName_code |
1243 stx_libbasic3 companyName_code |
1520 "Created: / 17-08-2006 / 21:28:09 / cg" |
1531 "Created: / 17-08-2006 / 21:28:09 / cg" |
1521 "Modified: / 09-10-2006 / 14:27:20 / cg" |
1532 "Modified: / 09-10-2006 / 14:27:20 / cg" |
1522 ! |
1533 ! |
1523 |
1534 |
1524 productName_code |
1535 productName_code |
|
1536 ^ self productName_codeFor:(self productName) |
|
1537 |
|
1538 " |
|
1539 self productName_code |
|
1540 stx_libbasic3 productName_code |
|
1541 " |
|
1542 |
|
1543 "Created: / 18-08-2006 / 16:14:19 / cg" |
|
1544 ! |
|
1545 |
|
1546 productName_codeFor:aString |
1525 ^ String streamContents:[:s | |
1547 ^ String streamContents:[:s | |
1526 s nextPutLine:'productName'. |
1548 s nextPutLine:'productName'. |
1527 s nextPutLine:' "Return a product name which will appear in <lib>.rc"'. |
1549 s nextPutLine:' "Return a product name which will appear in <lib>.rc"'. |
1528 s cr; nextPutLine:' ^ ',self productName storeString. |
1550 s cr; nextPutLine:' ^ ',aString storeString. |
1529 ]. |
1551 ]. |
1530 |
1552 |
1531 " |
1553 " |
1532 self productName_code |
1554 self productName_code |
1533 stx_libbasic3 productName_code |
1555 stx_libbasic3 productName_code |
5116 ! ! |
5138 ! ! |
5117 |
5139 |
5118 !ProjectDefinition class methodsFor:'documentation'! |
5140 !ProjectDefinition class methodsFor:'documentation'! |
5119 |
5141 |
5120 version |
5142 version |
5121 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.285 2009-11-12 16:56:46 sr Exp $' |
5143 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.286 2009-11-16 13:24:26 cg Exp $' |
5122 ! |
5144 ! |
5123 |
5145 |
5124 version_CVS |
5146 version_CVS |
5125 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.285 2009-11-12 16:56:46 sr Exp $' |
5147 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.286 2009-11-16 13:24:26 cg Exp $' |
5126 ! ! |
5148 ! ! |
5127 |
5149 |
5128 ProjectDefinition initialize! |
5150 ProjectDefinition initialize! |