*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 01 Mar 2007 20:28:31 +0100
changeset 10426 37dc4c920ba3
parent 10425 cdc96c56fba4
child 10427 4ced2ddca6fb
*** empty log message ***
ProjectDefinition.st
--- a/ProjectDefinition.st	Thu Mar 01 18:09:38 2007 +0100
+++ b/ProjectDefinition.st	Thu Mar 01 20:28:31 2007 +0100
@@ -1603,6 +1603,19 @@
     "Created: / 17-08-2006 / 20:17:28 / cg"
 !
 
+productFilename
+    "Returns a filename which be used as linkname, product file name etc."
+
+    ^ self productNameAsValidFilename
+
+    "
+     stx_projects_smalltalk productName     
+     stx_projects_smalltalk productFilename
+    "
+
+    "Created: / 01-03-2007 / 19:33:06 / cg"
+!
+
 productInstallDir
     "Returns a product default installDir which will appear in <app>.nsi."
 
@@ -1627,6 +1640,22 @@
     "Modified: / 18-12-2006 / 17:34:19 / cg"
 !
 
+productNameAsValidFilename
+    "Returns a product name which will appear in <lib>.rc.
+     Under win32, this is placed into the dlls file-info"
+
+    |nm|
+
+    nm := self productName.
+    ^ nm copy replaceAny:'/\:;.,' with:$_
+
+    "
+     'Smalltalk/X' replaceAny:'/\:;.,' with:nil
+    "
+
+    "Created: / 01-03-2007 / 19:19:21 / cg"
+!
+
 productPublisher
     "Returns a product publisher which will appear in <app>.nsi."
 
@@ -1683,9 +1712,11 @@
         ^ 'http://www.exept.de'
     ].
 
+    "/ should be redefined by concrete ApplicationDefinition
     ^ 'http://www.yoursite.com'
 
     "Created: / 14-09-2006 / 21:15:05 / cg"
+    "Modified: / 01-03-2007 / 18:11:27 / cg"
 !
 
 releaseNr
@@ -3720,7 +3751,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.152 2007-02-28 17:23:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.153 2007-03-01 19:28:31 cg Exp $'
 ! !
 
 ProjectDefinition initialize!