Smalltalk.st
changeset 24094 76558849874f
parent 24062 d95c06ef5614
child 24112 4f6e91819fad
equal deleted inserted replaced
24085:d7c121c70d1e 24094:76558849874f
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1988 by Claus Gittinger
     2  COPYRIGHT (c) 1988 by Claus Gittinger
     5 	      All Rights Reserved
     3 	      All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  4169             "/
  4167             "/
  4170             "/ non-GUI apps exit after the startup;
  4168             "/ non-GUI apps exit after the startup;
  4171             "/ assume that GUI apps have created & opened some view ...
  4169             "/ assume that GUI apps have created & opened some view ...
  4172             "/
  4170             "/
  4173             Display isNil ifTrue:[
  4171             Display isNil ifTrue:[
       
  4172                 StartupClass isHeadless ifTrue:[
       
  4173                     Smalltalk exit:0.
       
  4174                 ].    
  4174                 'Smalltalk [info]: no Display - exit.' infoPrintCR.
  4175                 'Smalltalk [info]: no Display - exit.' infoPrintCR.
  4175                 Smalltalk exit:11.
  4176                 Smalltalk exit:11.
  4176             ].
  4177             ].
  4177 "/            "/
  4178 "/            "/
  4178 "/            "/ GUI apps exit after the last user process has finished
  4179 "/            "/ GUI apps exit after the last user process has finished
  4222     self exit
  4223     self exit
  4223 
  4224 
  4224     "Created: / 18-07-1996 / 21:07:39 / cg"
  4225     "Created: / 18-07-1996 / 21:07:39 / cg"
  4225     "Modified: / 09-09-1996 / 17:42:50 / stefan"
  4226     "Modified: / 09-09-1996 / 17:42:50 / stefan"
  4226     "Modified: / 28-02-2017 / 10:59:43 / cg"
  4227     "Modified: / 28-02-2017 / 10:59:43 / cg"
  4227     "Modified: / 22-01-2019 / 14:00:22 / Claus Gittinger"
  4228     "Modified: / 27-04-2019 / 12:45:40 / Claus Gittinger"
  4228 !
  4229 !
  4229 
  4230 
  4230 openDisplay
  4231 openDisplay
  4231     "try to open a display connection.
  4232     "try to open a display connection.
  4232      If so, also read display- and keyboard.rc"
  4233      If so, also read display- and keyboard.rc"
  8905     bit := 'bit'.
  8906     bit := 'bit'.
  8906 
  8907 
  8907     (lang == #de) ifTrue:[
  8908     (lang == #de) ifTrue:[
  8908         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
  8909         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
  8909     ] ifFalse:[ (lang == #fr) ifTrue:[
  8910     ] ifFalse:[ (lang == #fr) ifTrue:[
  8910         proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
  8911         proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
  8911     ] ifFalse:[ (lang == #it) ifTrue:[
  8912     ] ifFalse:[ (lang == #it) ifTrue:[
  8912         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
  8913         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
  8913     ] ifFalse:[ (lang == #es) ifTrue:[
  8914     ] ifFalse:[ (lang == #es) ifTrue:[
  8914         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
  8915         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
  8915     ] ifFalse:[ (lang == #pt) ifTrue:[
  8916     ] ifFalse:[ (lang == #pt) ifTrue:[
  8916         proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
  8917         proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
  8917     ] ifFalse:[ (lang == #no) ifTrue:[
  8918     ] ifFalse:[ (lang == #no) ifTrue:[
  8918         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
  8919         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
  8919     ]]]]]].
  8920     ]]]]]].
  8920 
  8921 
  8921     "/ ... more needed here ...
  8922     "/ ... more needed here ...