8998 |
8998 |
8999 "stupid: this should come from a resource file ... |
8999 "stupid: this should come from a resource file ... |
9000 but I don't use it here, to allow mini-systems without |
9000 but I don't use it here, to allow mini-systems without |
9001 Resource-stuff." |
9001 Resource-stuff." |
9002 |
9002 |
9003 |proto lang bit bitsPerWordString| |
9003 |proto lang bitsPerWordString| |
9004 |
9004 |
9005 lang := Language. |
9005 lang := Language. |
9006 bit := 'bit'. |
|
9007 |
9006 |
9008 (lang == #de) ifTrue:[ |
9007 (lang == #de) ifTrue:[ |
9009 proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'. |
9008 proto := 'Willkommen bei %1 (%3Bit Version %2 von %4)'. |
9010 ] ifFalse:[ (lang == #fr) ifTrue:[ |
9009 ] ifFalse:[ (lang == #fr) ifTrue:[ |
9011 proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)' |
9010 proto := 'Salut, Bienvenue à %1 (%3Bit version %2 de %4)' |
9012 ] ifFalse:[ (lang == #it) ifTrue:[ |
9011 ] ifFalse:[ (lang == #it) ifTrue:[ |
9013 proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)' |
9012 proto := 'Ciao, benvenuto al %1 (%3Bit versione %2 di %4)' |
9014 ] ifFalse:[ (lang == #es) ifTrue:[ |
9013 ] ifFalse:[ (lang == #es) ifTrue:[ |
9015 proto := 'Hola, bienvenida a %1 (%4version %2 de %3)' |
9014 proto := 'Hola, bienvenida a %1 (%3Bit version %2 de %4)' |
9016 ] ifFalse:[ (lang == #pt) ifTrue:[ |
9015 ] ifFalse:[ (lang == #pt) ifTrue:[ |
9017 proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)' |
9016 proto := 'Olá!!, mem-vindo a %1 (%3Bit version %2 de %4)' |
9018 ] ifFalse:[ (lang == #no) ifTrue:[ |
9017 ] ifFalse:[ (lang == #no) ifTrue:[ |
9019 proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)' |
9018 proto := 'Hei, verdenmottakelse til %1 (%3Bit versjon %2 av %4)' |
9020 ]]]]]]. |
9019 ]]]]]]. |
9021 |
9020 |
9022 "/ ... more needed here ... |
9021 "/ ... more needed here ... |
9023 |
9022 |
9024 proto isNil ifTrue:[ |
9023 proto isNil ifTrue:[ |
9043 |
9042 |
9044 Transcript showCR:(Smalltalk hello) |
9043 Transcript showCR:(Smalltalk hello) |
9045 Stdout showCR:(Smalltalk hello) |
9044 Stdout showCR:(Smalltalk hello) |
9046 " |
9045 " |
9047 |
9046 |
9048 "Modified: 18.5.1996 / 14:25:13 / cg" |
9047 "Modified: / 18-05-1996 / 14:25:13 / cg" |
|
9048 "Modified: / 11-03-2020 / 10:07:21 / Stefan Vogel" |
9049 ! |
9049 ! |
9050 |
9050 |
9051 imageRestartTime |
9051 imageRestartTime |
9052 "return a timestamp for the moment when this image was restarted. |
9052 "return a timestamp for the moment when this image was restarted. |
9053 If we do not execute from an image (i.e. fresh start), return nil." |
9053 If we do not execute from an image (i.e. fresh start), return nil." |