--- a/ProjectDefinition.st Mon Aug 21 14:57:15 2006 +0200
+++ b/ProjectDefinition.st Mon Aug 21 14:57:20 2006 +0200
@@ -586,7 +586,7 @@
fileDescription
"Returns a description string which will appear in libName.rc"
- ^self productName,' ', self packageName
+ ^self productName,' ',self packageName
"Modified: / 17-08-2006 / 20:27:07 / cg"
!
@@ -1511,12 +1511,10 @@
!ProjectDefinition class methodsFor:'update description'!
companyName_code
- |generatedString|
-
^ String streamContents:[:s |
- s nextPutLine:'productName'.
+ s nextPutLine:'companyName'.
s nextPutLine:' "Return a companyname which will appear in <lib>.rc"'.
- s cr; nextPutLine:' ^ ''',self companyName storeString,''''.
+ s cr; nextPutLine:' ^ ',self companyName storeString.
].
"
@@ -1528,12 +1526,10 @@
!
description_code
- |generatedString|
-
^ String streamContents:[:s |
s nextPutLine:'description'.
s nextPutLine:' "Return a description string which will appear in nt.def / bc.def"'.
- s cr; nextPutLine:' ^ ''',self description storeString,''''.
+ s cr; nextPutLine:' ^ ',self description storeString.
].
"
@@ -1571,12 +1567,10 @@
!
legalCopyright_code
- |generatedString|
-
^ String streamContents:[:s |
- s nextPutLine:'productName'.
+ s nextPutLine:'legalCopyright'.
s nextPutLine:' "Return copyright string which will appear in <lib>.rc"'.
- s cr; nextPutLine:' ^ ''',self legalCopyright storeString,''''.
+ s cr; nextPutLine:' ^ ',self legalCopyright storeString.
].
"
@@ -1588,12 +1582,10 @@
!
productName_code
- |generatedString|
-
^ String streamContents:[:s |
s nextPutLine:'productName'.
s nextPutLine:' "Return a product name which will appear in <lib>.rc"'.
- s cr; nextPutLine:' ^ ''',self productName storeString,''''.
+ s cr; nextPutLine:' ^ ',self productName storeString.
].
"
@@ -1607,5 +1599,5 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.22 2006-08-21 12:03:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.23 2006-08-21 12:57:20 cg Exp $'
! !