Smalltalk.st
branchjv
changeset 18800 02724cc719b6
parent 18759 c1217211909c
parent 18794 d9c30cfc3959
child 18859 0ce287fb826a
equal deleted inserted replaced
18786:237a87b4fe8f 18800:02724cc719b6
       
     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
  7932      Smalltalk packageDirectoryForPackageId:'stx:goodies/persistency'
  7934      Smalltalk packageDirectoryForPackageId:'stx:goodies/persistency'
  7933      Smalltalk packageDirectoryForPackageId:'exept:ctypes'
  7935      Smalltalk packageDirectoryForPackageId:'exept:ctypes'
  7934     "
  7936     "
  7935 !
  7937 !
  7936 
  7938 
       
  7939 requirePackage:aPackageIdOrPackage
       
  7940     "make certain, that some particular package is loaded into the system.
       
  7941      Return true if loaded, false otherwise.
       
  7942      Just an alias which is easier to remember"
       
  7943 
       
  7944     ^ self loadPackage:aPackageIdOrPackage
       
  7945 
       
  7946     "
       
  7947      Smalltalk loadPackage:'stx:libbasic'
       
  7948      Smalltalk loadPackage:'stx:goodies/persistency'
       
  7949      Smalltalk loadPackage:'cg:cparser'
       
  7950      Smalltalk loadPackage:'cg:rose'
       
  7951     "
       
  7952 !
       
  7953 
  7937 unloadPackage:aPackageIdOrPackage
  7954 unloadPackage:aPackageIdOrPackage
  7938     |projectDefinition|
  7955     |projectDefinition|
  7939 
  7956 
  7940     projectDefinition := aPackageIdOrPackage.
  7957     projectDefinition := aPackageIdOrPackage.
  7941     projectDefinition isProjectDefinition ifFalse:[
  7958     projectDefinition isProjectDefinition ifFalse:[
  8083 
  8100 
  8084     lang := Language.
  8101     lang := Language.
  8085     (lang == #de) ifTrue:[
  8102     (lang == #de) ifTrue:[
  8086 	proto := 'Willkommen bei %1 (Version %2 von %3)'
  8103 	proto := 'Willkommen bei %1 (Version %2 von %3)'
  8087     ] ifFalse:[ (lang == #fr) ifTrue:[
  8104     ] ifFalse:[ (lang == #fr) ifTrue:[
  8088 	proto := 'Salut, Bienvenue à %1 (version %2 de %3)'
  8105 	proto := 'Salut, Bienvenue à %1 (version %2 de %3)'
  8089     ] ifFalse:[ (lang == #it) ifTrue:[
  8106     ] ifFalse:[ (lang == #it) ifTrue:[
  8090 	proto := 'Ciao, benvenuto al %1 (versione %2 di %3)'
  8107 	proto := 'Ciao, benvenuto al %1 (versione %2 di %3)'
  8091     ] ifFalse:[ (lang == #es) ifTrue:[
  8108     ] ifFalse:[ (lang == #es) ifTrue:[
  8092 "/        proto := 'Hola, bienvenida a %1 (versión %2 de %3)'
  8109 "/        proto := 'Hola, bienvenida a %1 (versión %2 de %3)'
  8093     ] ifFalse:[ (lang == #es) ifTrue:[
  8110     ] ifFalse:[ (lang == #es) ifTrue:[
  8094 "/        proto := 'Oi, benvindo a %1 (versão %2 de %3)'
  8111 "/        proto := 'Oi, benvindo a %1 (versão %2 de %3)'
  8095     ] ifFalse:[ (lang == #no) ifTrue:[
  8112     ] ifFalse:[ (lang == #no) ifTrue:[
  8096 	proto := 'Hei, verdenmottakelse til %1 (versjon %2 av %3)'
  8113 	proto := 'Hei, verdenmottakelse til %1 (versjon %2 av %3)'
  8097     ]]]]]].
  8114     ]]]]]].
  8098 
  8115 
  8099     "/ ... more needed here ...
  8116     "/ ... more needed here ...