equal
deleted
inserted
replaced
5816 |
5816 |
5817 "stupid: this should come from a resource file ... |
5817 "stupid: this should come from a resource file ... |
5818 but I dont use it here, to allow mini-systems without |
5818 but I dont use it here, to allow mini-systems without |
5819 Resource-stuff." |
5819 Resource-stuff." |
5820 |
5820 |
5821 |proto lang stx| |
5821 |proto lang| |
5822 |
5822 |
5823 lang := Language. |
5823 lang := Language. |
5824 (lang == #de) ifTrue:[ |
5824 (lang == #de) ifTrue:[ |
5825 proto := 'Willkommen bei %1 (Version %2 vom %3)' |
5825 proto := 'Willkommen bei %1 (Version %2 vom %3)' |
5826 ] ifFalse:[ (lang == #fr) ifTrue:[ |
5826 ] ifFalse:[ (lang == #fr) ifTrue:[ |
5839 |
5839 |
5840 proto isNil ifTrue:[ |
5840 proto isNil ifTrue:[ |
5841 proto := 'Hello World - here is %1 version %2 of %3'. |
5841 proto := 'Hello World - here is %1 version %2 of %3'. |
5842 ]. |
5842 ]. |
5843 |
5843 |
5844 stx := 'SmallTalk/X'. |
5844 ^ proto bindWith:('SmallTalk/X' allBold) |
5845 Text notNil ifTrue:[ |
|
5846 stx := Text string:stx emphasis:#bold |
|
5847 ]. |
|
5848 |
|
5849 ^ proto bindWith:stx |
|
5850 with:(self versionString) |
5845 with:(self versionString) |
5851 with:(self versionDate) |
5846 with:(self versionDate) |
5852 |
5847 |
5853 " |
5848 " |
5854 Smalltalk language:#us. |
5849 Smalltalk language:#us. |
6082 ! ! |
6077 ! ! |
6083 |
6078 |
6084 !Smalltalk class methodsFor:'documentation'! |
6079 !Smalltalk class methodsFor:'documentation'! |
6085 |
6080 |
6086 version |
6081 version |
6087 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.512 2001-11-15 08:50:38 cg Exp $' |
6082 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.513 2001-11-15 08:52:54 cg Exp $' |
6088 ! ! |
6083 ! ! |