Smalltalk.st
changeset 19187 7730a271c529
parent 19121 4b8d83dceb98
child 19225 9e8abf62f932
child 19385 0c655478e4bd
--- 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