--- a/ProjectDefinition.st Wed Oct 12 01:15:53 2016 +0200
+++ b/ProjectDefinition.st Wed Oct 12 11:21:50 2016 +0200
@@ -2871,14 +2871,15 @@
Under win32, this is placed into the dll's file-info.
Other systems may put it elsewhere, or ignore it."
- (
- #(
- 'stx'
- 'exept'
- ) includes:self module) ifTrue:[
- ^ 'eXept Software AG'
- ].
-
+ |m|
+
+ m := self module.
+ (m = 'stx') ifTrue:[
+ ^ 'Claus Gittinger & eXept Software AG'
+ ].
+ (m = 'exept') ifTrue:[
+ ^ 'eXept Software AG'
+ ].
^ 'My Company'
"Modified: / 18-08-2006 / 16:08:20 / cg"
@@ -3026,15 +3027,16 @@
Under win32, this is placed into the dll's file-info.
Other systems may put it elsewhere, or ignore it."
- self module = 'stx' ifTrue:[
+ |m|
+
+ m := self module.
+ m = 'stx' ifTrue:[
"hardwired-default"
- ^ 'Copyright Claus Gittinger 1988-%1\nCopyright eXept Software AG %1'
- bindWith:(Date today year)
- ].
- self module = 'exept' ifTrue:[
+ ^ 'Copyright Claus Gittinger 1988-%1\nCopyright eXept Software AG %1' bindWith:(Date today year)
+ ].
+ m = 'exept' ifTrue:[
"hardwired-default"
- ^ 'Copyright eXept Software AG %1'
- bindWith:(Date today year)
+ ^ 'Copyright eXept Software AG %1' bindWith:(Date today year)
].
^ 'My CopyRight or CopyLeft'
@@ -5263,7 +5265,7 @@
plist at:'CFBundleVersion' put:(self fileVersion asString).
plist at:'LSMinimumSystemVersion' put:'10.6'.
"/ plist at:'CFBundleDevelopmentRegion' put:'English'.
- "/ plist at:'CFBundleExecutable' put:(self executableName).
+ plist at:'CFBundleExecutable' put:(self applicationName).
self isLibraryDefinition ifTrue:[
plist at:'CFBundleName' put:(self package copyReplaceAny:':/' with:$.).