#OTHER by cg
class: ProjectDefinition
comment/format in: #productFilename
changed: #productNameAsValidFilename
fixed product file names (deployed package file)
if spaces,slashes etc. are in the name
--- a/ProjectDefinition.st Wed Oct 05 19:02:12 2016 +0200
+++ b/ProjectDefinition.st Wed Oct 05 19:02:20 2016 +0200
@@ -15,9 +15,9 @@
Object subclass:#ProjectDefinition
instanceVariableNames:''
- classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType
- PackagesBeingLoaded Verbose AbbrevDictionary AccessLock
- FolderForSubApplicationsType'
+ classVariableNames:'AbbrevDictionary AccessLock FolderForSubApplicationsType
+ GUIApplicationType LibraryType NonGUIApplicationType
+ PackagesBeingLoaded Verbose'
poolDictionaries:''
category:'System-Support-Projects'
!
@@ -2981,13 +2981,16 @@
!
productFilename
- "Returns a filename which be used as linkname, product file name etc."
+ "Returns a filename which will be used as linkname, product file name etc.
+ The final deployable will be named like this (<fn>.dmg / <fn>Setup.ex / <fn>Install.pkg etc.)"
^ self productNameAsValidFilename
"
stx_projects_smalltalk productName
stx_projects_smalltalk productFilename
+ stx_libbasic productFilename
+ stx_doc_coding_demoConsoleApp productFilename
"
"Created: / 01-03-2007 / 19:33:06 / cg"
@@ -3070,16 +3073,18 @@
!
productNameAsValidFilename
- "Returns a product name which will appear in <lib>.rc.
- Under win32, this is placed into the dlls file-info"
+ "Returns a filename generated from the product name.
+ This will be the name of the deployable package (i.e. <fn>.dmg, <fn>Setup.exe, etc.)"
|nm|
nm := self productName.
- ^ nm copy replaceAny:'/\:;.,' with:$_
+ ^ nm copy replaceAny:'/\:;., ' with:$_
"
'Smalltalk/X' replaceAny:'/\:;.,' with:nil
+ stx_doc_coding_demoConsoleApp productName
+ stx_doc_coding_demoConsoleApp productNameAsValidFilename
"
"Created: / 01-03-2007 / 19:19:21 / cg"