--- a/Smalltalk.st Thu Feb 11 17:31:47 2016 +0100
+++ b/Smalltalk.st Thu Feb 11 18:18:03 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -8124,36 +8126,44 @@
but I don't use it here, to allow mini-systems without
Resource-stuff."
- |proto lang|
+ |proto lang bit bitsPerWordString|
lang := Language.
+ bit := 'bit'.
+
(lang == #de) ifTrue:[
- proto := 'Willkommen bei %1 (Version %2 von %3)'
+ proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
] ifFalse:[ (lang == #fr) ifTrue:[
- proto := 'Salut, Bienvenue à %1 (version %2 de %3)'
+ proto := 'Salut, Bienvenue à%1 (%4version %2 de %3)'
] ifFalse:[ (lang == #it) ifTrue:[
- proto := 'Ciao, benvenuto al %1 (versione %2 di %3)'
+ proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
] ifFalse:[ (lang == #es) ifTrue:[
- proto := 'Hola, bienvenida a %1 (version %2 de %3)'
+ proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
] ifFalse:[ (lang == #pt) ifTrue:[
- proto := 'Olá!!, mem-vindo a %1 (version %2 de %3)'
+ proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
] ifFalse:[ (lang == #no) ifTrue:[
- proto := 'Hei, verdenmottakelse til %1 (versjon %2 av %3)'
+ proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
]]]]]].
"/ ... more needed here ...
proto isNil ifTrue:[
- proto := 'Hello World - welcome to %1 version %2 of %3'.
- ].
+ proto := 'Hello World - welcome to %1 (%4version %2 of %3)'.
+ ].
+ ExternalBytes sizeofPointer ~~ 4 ifTrue:[
+ bitsPerWordString := (ExternalBytes sizeofPointer * 8) printString,bit,' '.
+ ] ifFalse:[
+ bitsPerWordString := ''
+ ].
^ proto bindWith:('SmallTalk/X' allBold)
with:(self versionString)
with:(self versionDate)
+ with:bitsPerWordString
"
Smalltalk language:#us.
- Smalltalk hello
+ Smalltalk hello
Smalltalk language:#de.
Smalltalk hello