Smalltalk.st
changeset 23677 1543d88d416d
parent 23670 12331a3a54a0
child 23678 acb36818ea6b
equal deleted inserted replaced
23676:231e0a0fb4cc 23677:1543d88d416d
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1988 by Claus Gittinger
     4  COPYRIGHT (c) 1988 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   698 
   700 
   699 initializeVerboseFlags
   701 initializeVerboseFlags
   700     |idx|
   702     |idx|
   701 
   703 
   702     StandAlone ifTrue:[
   704     StandAlone ifTrue:[
   703         InfoPrinting := false.
   705         InfoPrinting := Verbose := false.
   704         ObjectMemory infoPrinting:false.
   706         ObjectMemory infoPrinting:false.
   705         IgnoreAssertions := true.
   707         IgnoreAssertions := true.
   706     ] ifFalse:[
   708     ] ifFalse:[
   707         IgnoreAssertions := false.
   709         IgnoreAssertions := false.
   708     ].
   710     ].
   794         Inspector := MiniInspector.
   796         Inspector := MiniInspector.
   795         Debugger := MiniDebugger.
   797         Debugger := MiniDebugger.
   796     ].
   798     ].
   797 
   799 
   798     "Modified: / 12-10-2017 / 17:48:11 / cg"
   800     "Modified: / 12-10-2017 / 17:48:11 / cg"
   799     "Modified: / 22-01-2019 / 12:59:36 / Claus Gittinger"
   801     "Modified: / 06-02-2019 / 20:35:38 / Claus Gittinger"
   800 !
   802 !
   801 
   803 
   802 isInitialized
   804 isInitialized
   803     "this returns true, if the system is properly initialized;
   805     "this returns true, if the system is properly initialized;
   804      i.e. false during startup.
   806      i.e. false during startup.
  2431 	aBlock value:aKey
  2433 	aBlock value:aKey
  2432     ]
  2434     ]
  2433 ! !
  2435 ! !
  2434 
  2436 
  2435 !Smalltalk class methodsFor:'message control'!
  2437 !Smalltalk class methodsFor:'message control'!
       
  2438 
       
  2439 silent
       
  2440     "returns the Silent class variable."
       
  2441 
       
  2442      ^ Silent ? false
       
  2443 
       
  2444     "Created: / 06-02-2019 / 20:36:51 / Claus Gittinger"
       
  2445 !
  2436 
  2446 
  2437 silentLoading
  2447 silentLoading
  2438     "returns the Silentloading class variable, which globally controls if compilation
  2448     "returns the Silentloading class variable, which globally controls if compilation
  2439      messages are shown on the transcript during a fileIn."
  2449      messages are shown on the transcript during a fileIn."
  2440 
  2450 
  8877     bit := 'bit'.
  8887     bit := 'bit'.
  8878 
  8888 
  8879     (lang == #de) ifTrue:[
  8889     (lang == #de) ifTrue:[
  8880         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
  8890         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
  8881     ] ifFalse:[ (lang == #fr) ifTrue:[
  8891     ] ifFalse:[ (lang == #fr) ifTrue:[
  8882         proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
  8892         proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
  8883     ] ifFalse:[ (lang == #it) ifTrue:[
  8893     ] ifFalse:[ (lang == #it) ifTrue:[
  8884         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
  8894         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
  8885     ] ifFalse:[ (lang == #es) ifTrue:[
  8895     ] ifFalse:[ (lang == #es) ifTrue:[
  8886         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
  8896         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
  8887     ] ifFalse:[ (lang == #pt) ifTrue:[
  8897     ] ifFalse:[ (lang == #pt) ifTrue:[
  8888         proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
  8898         proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
  8889     ] ifFalse:[ (lang == #no) ifTrue:[
  8899     ] ifFalse:[ (lang == #no) ifTrue:[
  8890         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
  8900         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
  8891     ]]]]]].
  8901     ]]]]]].
  8892 
  8902 
  8893     "/ ... more needed here ...
  8903     "/ ... more needed here ...