ProjectDefinition.st
changeset 20601 2308f69ba99c
parent 20590 60c281959efc
child 20604 b648faace1ab
equal deleted inserted replaced
20597:592b6415b9ae 20601:2308f69ba99c
  2869 companyName
  2869 companyName
  2870     "Returns a company string which will appear in <lib>.rc.
  2870     "Returns a company string which will appear in <lib>.rc.
  2871      Under win32, this is placed into the dll's file-info.
  2871      Under win32, this is placed into the dll's file-info.
  2872      Other systems may put it elsewhere, or ignore it."
  2872      Other systems may put it elsewhere, or ignore it."
  2873 
  2873 
  2874     (
  2874     |m|
  2875       #(
  2875     
  2876         'stx'
  2876     m := self module.
  2877         'exept'
  2877     (m = 'stx') ifTrue:[
  2878       ) includes:self module) ifTrue:[
  2878         ^ 'Claus Gittinger & eXept Software AG'  
  2879         ^ 'eXept Software AG'
  2879     ].
  2880     ].
  2880     (m = 'exept') ifTrue:[
  2881 
  2881         ^ 'eXept Software AG'  
       
  2882     ].
  2882     ^ 'My Company'
  2883     ^ 'My Company'
  2883 
  2884 
  2884     "Modified: / 18-08-2006 / 16:08:20 / cg"
  2885     "Modified: / 18-08-2006 / 16:08:20 / cg"
  2885 !
  2886 !
  2886 
  2887 
  3024 legalCopyright
  3025 legalCopyright
  3025     "Returns a copyright string which will appear in <lib>.rc.
  3026     "Returns a copyright string which will appear in <lib>.rc.
  3026      Under win32, this is placed into the dll's file-info.
  3027      Under win32, this is placed into the dll's file-info.
  3027      Other systems may put it elsewhere, or ignore it."
  3028      Other systems may put it elsewhere, or ignore it."
  3028 
  3029 
  3029     self module = 'stx' ifTrue:[
  3030      |m|
       
  3031      
       
  3032      m := self module.
       
  3033     m = 'stx' ifTrue:[
  3030         "hardwired-default"
  3034         "hardwired-default"
  3031         ^ 'Copyright Claus Gittinger 1988-%1\nCopyright eXept Software AG %1'
  3035         ^ 'Copyright Claus Gittinger 1988-%1\nCopyright eXept Software AG %1' bindWith:(Date today year)
  3032             bindWith:(Date today year)
  3036     ].
  3033     ].
  3037     m = 'exept' ifTrue:[
  3034     self module = 'exept' ifTrue:[
       
  3035         "hardwired-default"
  3038         "hardwired-default"
  3036         ^ 'Copyright eXept Software AG %1'
  3039         ^ 'Copyright eXept Software AG %1' bindWith:(Date today year)
  3037             bindWith:(Date today year)
       
  3038     ].
  3040     ].
  3039 
  3041 
  3040     ^ 'My CopyRight or CopyLeft'
  3042     ^ 'My CopyRight or CopyLeft'
  3041 
  3043 
  3042     "
  3044     "
  5261     plist at:'CFBundleIdentifier' put:pkg.
  5263     plist at:'CFBundleIdentifier' put:pkg.
  5262     plist at:'CFBundleShortVersionString' put:(self fileVersion asString).
  5264     plist at:'CFBundleShortVersionString' put:(self fileVersion asString).
  5263     plist at:'CFBundleVersion' put:(self fileVersion asString).
  5265     plist at:'CFBundleVersion' put:(self fileVersion asString).
  5264     plist at:'LSMinimumSystemVersion' put:'10.6'.
  5266     plist at:'LSMinimumSystemVersion' put:'10.6'.
  5265     "/ plist at:'CFBundleDevelopmentRegion' put:'English'.
  5267     "/ plist at:'CFBundleDevelopmentRegion' put:'English'.
  5266     "/ plist at:'CFBundleExecutable' put:(self executableName).
  5268     plist at:'CFBundleExecutable' put:(self applicationName).
  5267     
  5269     
  5268     self isLibraryDefinition ifTrue:[
  5270     self isLibraryDefinition ifTrue:[
  5269         plist at:'CFBundleName' put:(self package copyReplaceAny:':/' with:$.).
  5271         plist at:'CFBundleName' put:(self package copyReplaceAny:':/' with:$.).
  5270     ] ifFalse:[
  5272     ] ifFalse:[
  5271         plist at:'CFBundleName' put:(self applicationName).
  5273         plist at:'CFBundleName' put:(self applicationName).