equal
deleted
inserted
replaced
2818 "Created: / 21-12-2010 / 09:26:16 / cg" |
2818 "Created: / 21-12-2010 / 09:26:16 / cg" |
2819 ! |
2819 ! |
2820 |
2820 |
2821 productName |
2821 productName |
2822 "Returns a product name which will appear in <lib>.rc. |
2822 "Returns a product name which will appear in <lib>.rc. |
2823 Under win32, this is placed into the dlls file-info" |
2823 Under win32, this is placed into the dlls file-info. |
2824 |
2824 This method is usually redefined in a concrete application definition" |
2825 |m| |
2825 |
|
2826 |m nm| |
2826 |
2827 |
2827 m := self module. |
2828 m := self module. |
2828 m = 'stx' ifTrue:[ |
2829 m = 'stx' ifTrue:[ |
2829 ^ 'Smalltalk/X' |
2830 ^ 'Smalltalk/X' |
2830 ]. |
2831 ]. |
2831 m = 'exept' ifTrue:[ |
2832 m = 'exept' ifTrue:[ |
2832 ^ 'eXept addOns' |
2833 ^ 'eXept addOns' |
2833 ]. |
2834 ]. |
2834 Error handle:[:ex | |
2835 Error handle:[:ex | |
|
2836 self halt. |
2835 ^ 'ProductName' |
2837 ^ 'ProductName' |
2836 ] do:[ |
2838 ] do:[ |
2837 ^ self startupClassName |
2839 nm := self startupClassName. |
|
2840 (nm endsWith:'Startup') ifTrue:[ |
|
2841 ^ nm copyButLast:'Startup' size. |
|
2842 ]. |
|
2843 (nm endsWith:'Start') ifTrue:[ |
|
2844 ^ nm copyButLast:'Start' size. |
|
2845 ]. |
|
2846 ^ nm |
2838 ]. |
2847 ]. |
2839 |
2848 |
2840 "Modified: / 08-11-2007 / 16:45:14 / cg" |
2849 "Modified: / 08-11-2007 / 16:45:14 / cg" |
2841 ! |
2850 ! |
2842 |
2851 |
7411 ! ! |
7420 ! ! |
7412 |
7421 |
7413 !ProjectDefinition class methodsFor:'documentation'! |
7422 !ProjectDefinition class methodsFor:'documentation'! |
7414 |
7423 |
7415 version |
7424 version |
7416 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.465 2013-05-03 10:50:23 cg Exp $' |
7425 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.466 2013-05-06 15:07:27 cg Exp $' |
7417 ! |
7426 ! |
7418 |
7427 |
7419 version_CVS |
7428 version_CVS |
7420 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.465 2013-05-03 10:50:23 cg Exp $' |
7429 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.466 2013-05-06 15:07:27 cg Exp $' |
7421 ! |
7430 ! |
7422 |
7431 |
7423 version_SVN |
7432 version_SVN |
7424 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
7433 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
7425 ! ! |
7434 ! ! |