Smalltalk.st
changeset 19516 69d40825637a
parent 19511 96c72a572feb
child 19529 a7d95a598348
child 19589 3f183fdea754
--- a/Smalltalk.st	Fri Apr 01 00:03:04 2016 +0200
+++ b/Smalltalk.st	Fri Apr 01 13:22:32 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -8186,10 +8184,15 @@
 
     "return a full version string"
 
-    ^ 'Smalltalk/X release ' , self versionString , ' of ' , self versionDate
-
-    "
-     Smalltalk fullVersionString
+    ^ 'Smalltalk/X release %1%2 of %3'
+        bindWith:(self versionString)
+        with:((ExternalAddress pointerSize == 8)
+                        ifTrue:[' (64bit)']
+                        ifFalse:[''])
+        with:(self versionDate)
+
+    "
+     Smalltalk fullVersionString 
     "
 
     "Created: / 27.10.1997 / 17:03:09 / cg"
@@ -8213,13 +8216,13 @@
     (lang == #de) ifTrue:[
         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
     ] ifFalse:[ (lang == #fr) ifTrue:[
-        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
+        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #it) ifTrue:[
         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #pt) ifTrue:[
-        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
+        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #no) ifTrue:[
         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
     ]]]]]].