The Trunk: System-edc.470.mcz

Edgar J. De Cleene uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-edc.470.mcz

==================== Summary ====================

Name: System-edc.470
Author: edc
Time: 14 March 2012, 6:49:44.769 am
UUID: 151358a0-9d5c-4610-8a52-62799f4f239c
Ancestors: System-eem.469

Changes for have EToys GetText

=============== Diff against System-eem.469 ===============

Item was removed:
- Object subclass: #ISOLanguageDefinition
- instanceVariableNames: 'iso3 iso2 iso3Alternate language'
- classVariableNames: 'ISO2Countries ISO2Table ISO3Countries ISO3Table'
- poolDictionaries: ''
- category: 'System-Localization'!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>buildIso3166CodesTables (in category 'private') -----
- buildIso3166CodesTables
- "ISOLanguageDefinition buildIso3166CodesTables"
- | rawdata stream country isoa2 isoa3 unNumeric macName macCode windowsName windowsCode empty table |
- rawdata := self iso3166Codes.
- table := OrderedCollection new: 200.
- stream := rawdata readStream.
- empty := 160 asCharacter asString.
- [stream atEnd] whileFalse:
- [country := stream nextLine.
- isoa2 := stream nextLine.
- isoa3 := stream nextLine.
- unNumeric := stream nextLine.
- windowsName := stream nextLine.
- windowsName = empty ifTrue: [windowsName := nil].
- windowsCode := stream nextLine.
- windowsCode = empty ifTrue: [windowsCode := nil].
- macName := stream nextLine.
- macName = empty ifTrue: [macName := nil].
- macCode := stream nextLine.
- macCode = empty ifTrue: [macCode := nil].
- table add: { country.  isoa2. isoa3.  unNumeric. windowsName.  windowsCode.  macName. macCode. }].
- ^table!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>extraCountryDefinitions (in category 'private') -----
- extraCountryDefinitions
- ^{
- {'Kids'. 'KIDS'. 'KIDS'.}.
- }!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>extraISO3Definitions (in category 'private') -----
- extraISO3Definitions
-
- ^self readISOLanguagesFrom: 'jpk Japanese (Kids)
- ' readStream!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISO3LanguageTable (in category 'private') -----
- initISO3LanguageTable
- "ISOLanguageDefinition initIso3LanguageTable"
-
- | table |
- table := ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream.
- table addAll: self extraISO3Definitions.
- ^table!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISOCountries (in category 'private') -----
- initISOCountries
- "ISOLanguageDefinition initISOCountries"
- | iso3166Table |
- iso3166Table := ISOLanguageDefinition buildIso3166CodesTables.
- ISO2Countries := Dictionary new.
- ISO3Countries := Dictionary new.
- iso3166Table do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)].
- self extraCountryDefinitions do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)]!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>initialize (in category 'class initialization') -----
- initialize
- "ISOLanguageDefinition initialize"
-
- ISO3Table := nil.
- ISO2Table := nil!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2Countries (in category 'private') -----
- iso2Countries
- "ISOLanguageDefinition iso2Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO2Countries ifNil: [self initISOCountries].
- ^ISO2Countries!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageDefinition: (in category 'accessing') -----
- iso2LanguageDefinition: aString
- ^self iso2LanguageTable at: aString!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageTable (in category 'private') -----
- iso2LanguageTable
- "ISOLanguageDefinition iso2LanguageTable"
-
- ISO2Table ifNotNil: [^ISO2Table].
- ISO2Table := Dictionary new: self iso3LanguageTable basicSize.
- self iso3LanguageTable do: [:entry |
- ISO2Table at: entry iso2 put: entry].
- ^ISO2Table!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3166Codes (in category 'private') -----
- iso3166Codes
- "http://www.unicode.org/onlinedat/countries.html"
-
- ^'ÅLAND ISLANDS
- AX
-
-
-  
-  
-  
-  
- AFGHANISTAN
- AF
- AFG
- 004
-  
-  
-  
-  
- ALBANIA
- AL
- ALB
- 008
- CTRY_ALBANIA
- 355
-  
-  
- ALGERIA
- DZ
- DZA
- 012
- CTRY_ALGERIA
- 213
- verArabic
- 16
- AMERICAN SAMOA
- AS
- ASM
- 016
-  
-  
-  
-  
- ANDORRA
- AD
- AND
- 020
-  
-  
-  
-  
- ANGOLA
- AO
- AGO
- 024
-  
-  
-  
-  
- ANGUILLA
- AI
- AIA
- 660
-  
-  
-  
-  
- ANTARCTICA
- AQ
- ATA
- 010
-  
-  
-  
-  
- ANTIGUA AND BARBUDA
- AG
- ATG
- 028
-  
-  
-  
-  
- ARGENTINA
- AR
- ARG
- 032
- CTRY_ARGENTINA
- 54
-  
-  
- ARMENIA
- AM
- ARM
- 051
- CTRY_ARMENIA
- 374
- verArmenian
- 84
- ARUBA
- AW
- ABW
- 533
-  
-  
-  
-  
- AUSTRALIA
- AU
- AUS
- 036
- CTRY_AUSTRALIA
- 61
- verAustralia
- 15
- AUSTRIA
- AT
- AUT
- 040
- CTRY_AUSTRIA
- 43
- verAustria
- 92
- AZERBAIJAN
- AZ
- AZE
- 031
- CTRY_AZERBAIJAN
- 994
-  
-  
- BAHAMAS
- BS
- BHS
- 044
-  
-  
-  
-  
- BAHRAIN
- BH
- BHR
- 048
- CTRY_BAHRAIN
- 973
-  
-  
- BANGLADESH
- BD
- BGD
- 050
-  
-  
- verBengali
- 60
- BARBADOS
- BB
- BRB
- 052
-  
-  
-  
-  
- BELARUS
- BY
- BLR
- 112
- CTRY_BELARUS
- 375
-  
-  
- BELGIUM
- BE
- BEL
- 056
- CTRY_BELGIUM
- 32
- verFrBelgium, verFlemish
- 98
- BELIZE
- BZ
- BLZ
- 084
- CTRY_BELIZE
- 501
-  
-  
- BENIN
- BJ
- BEN
- 204
-  
-  
-  
-  
- BERMUDA
- BM
- BMU
- 060
-  
-  
-  
-  
- BHUTAN
- BT
- BTN
- 064
-  
-  
- verBhutan
- 83
- BOLIVIA
- BO
- BOL
- 068
- CTRY_BOLIVIA
- 591
-  
-  
- BOSNIA AND HERZEGOVINA
- BA
- BIH
- 070
-  
-  
-  
-  
- BOTSWANA
- BW
- BWA
- 072
-  
-  
-  
-  
- BOUVET ISLAND
- BV
- BVT
- 074
-  
-  
-  
-  
- BRAZIL
- BR
- BRA
- 076
- CTRY_BRAZIL
- 55
- verBrazil
- 71
- BRITISH INDIAN OCEAN TERRITORY
- IO
- IOT
- 086
-  
-  
-  
-  
- BRUNEI DARUSSALAM
- BN
- BRN
- 096
- CTRY_BRUNEI_DARUSSALAM
- 673
-  
-  
- BULGARIA
- BG
- BGR
- 100
- CTRY_BULGARIA
- 359
- verBulgaria 
- 72
- BURKINA FASO
- BF
- BFA
- 854
-  
-  
-  
-  
- BURUNDI
- BI
- BDI
- 108
-  
-  
-  
-  
- CAMBODIA
- KH
- KHM
- 116
-  
-  
-  
-  
- CAMEROON
- CM
- CMR
- 120
-  
-  
-  
-  
- CANADA
- CA
- CAN
- 124
- CTRY_CANADA
- 2
- verFrCanada, verEndCanada
- 82
- CAPE VERDE
- CV
- CPV
- 132
-  
-  
-  
-  
- CAYMAN ISLANDS
- KY
- CYM
- 136
-  
-  
-  
-  
- CENTRAL AFRICAN REPUBLIC
- CF
- CAF
- 140
-  
-  
-  
-  
- CHAD
- TD
- TCD
- 148
-  
-  
-  
-  
- CHILE
- CL
- CHL
- 152
- CTRY_CHILE
- 56
-  
-  
- CHINA
- CN
- CHN
- 156
- CTRY_PRCHINA
- 86
- verChina
- 52
- CHRISTMAS ISLAND
- CX
- CXR
- 162
-  
-  
-  
-  
- COCOS (KEELING) ISLANDS
- CC
- CCK
- 166
-  
-  
-  
-  
- COLOMBIA
- CO
- COL
- 170
- CTRY_COLOMBIA
- 57
-  
-  
- COMOROS
- KM
- COM
- 174
-  
-  
-  
-  
- CONGO
- CG
- COG
- 178
-  
-  
-  
-  
- CONGO, THE DEMOCRATIC REPUBLIC OF THE
- CD
-
-
-  
-  
-  
-  
- COOK ISLANDS
- CK
- COK
- 184
-  
-  
-  
-  
- COSTA RICA
- CR
- CRI
- 188
- CTRY_COSTA_RICA
- 506
-  
-  
- COTE D''IVOIRE
- CI
- CIV
- 384
-  
-  
-  
-  
- CROATIA (local name: Hrvatska)
- HR
- HRV
- 191
- CTRY_CROATIA
- 385
- verCroatia, verYugoCroatian
- 68 (c), 25 (y)
- CUBA
- CU
- CUB
- 192
-  
-  
-  
-  
- CYPRUS
- CY
- CYP
- 196
-  
-  
- verCyprus
- 23
- CZECH REPUBLIC
- CZ
- CZE
- 203
- CTRY_CZECH
- 420
- verCzech 
- 56
- DENMARK
- DK
- DNK
- 208
- CTRY_DENMARK
- 45
- verDenmark(da), verFaeroeIsl(fo)
- 9(da), 47(fo)
- DJIBOUTI
- DJ
- DJI
- 262
-  
-  
-  
-  
- DOMINICA
- DM
- DMA
- 212
-  
-  
-  
-  
- DOMINICAN REPUBLIC
- DO
- DOM
- 214
- CTRY_DOMINICAN_REPUBLIC
- 1
-  
-  
- EAST TIMOR
- TL
- TLS
- 626
-  
-  
-  
-  
- ECUADOR
- EC
- ECU
- 218
- CTRY_ECUADOR
- 593
-  
-  
- EGYPT
- EG
- EGY
- 818
- CTRY_EGYPT
- 20
- verArabic
- 16
- EL SALVADOR
- SV
- SLV
- 222
- CTRY_EL_SALVADOR
- 503
-  
-  
- EQUATORIAL GUINEA
- GQ
- GNQ
- 226
-  
-  
-  
-  
- ERITREA
- ER
- ERI
- 232
-  
-  
-  
-  
- ESTONIA
- EE
- EST
- 233
- CTRY_ESTONIA
- 372
- verEstonia
- 44
- ETHIOPIA
- ET
- ETH
- 210
-  
-  
-  
-  
- FALKLAND ISLANDS (MALVINAS)
- FK
- FLK
- 238
-  
-  
-  
-  
- FAROE ISLANDS
- FO
- FRO
- 234
- CTRY_FAEROE_ISLANDS
- 298
-  
-  
- FIJI
- FJ
- FJI
- 242
-  
-  
-  
-  
- FINLAND
- FI
- FIN
- 246
- CTRY_FINLAND
- 358
- verFinland
- 17
- FRANCE
- FR
- FRA
- 250
- CTRY_FRANCE
- 33
- verFrance
- 1
- FRANCE, METROPOLITAN
- FX
- FXX
- 249
-  
-  
-  
-  
- FRENCH GUIANA
- GF
- GUF
- 254
-  
-  
-  
-  
- FRENCH POLYNESIA
- PF
- PYF
- 258
-  
-  
-  
-  
- FRENCH SOUTHERN TERRITORIES
- TF
- ATF
- 260
-  
-  
-  
-  
- GABON
- GA
- GAB
- 266
-  
-  
-  
-  
- GAMBIA
- GM
- GMB
- 270
-  
-  
-  
-  
- GEORGIA
- GE
- GEO
- 268
- CTRY_GEORGIA
- 995
- verGeorgian
- 85
- GERMANY
- DE
- DEU
- 276
- CTRY_GERMANY
- 49
- verGermany
- 3
- GHANA
- GH
- GHA
- 288
-  
-  
-  
-  
- GIBRALTAR
- GI
- GIB
- 292
-  
-  
-  
-  
- GREECE
- GR
- GRC
- 300
- CTRY_GREECE
- 30
- verGreece, verGreecePoly
- 20, 40
- GREENLAND
- GL
- GRL
- 304
-  
-  
- verGreenland
- 107
- GRENADA
- GD
- GRD
- 308
-  
-  
-  
-  
- GUADELOUPE
- GP
- GLP
- 312
-  
-  
-  
-  
- GUAM
- GU
- GUM
- 316
-  
-  
-  
-  
- GUATEMALA
- GT
- GTM
- 320
- CTRY_GUATEMALA
- 502
-  
-  
- GUINEA
- GN
- GIN
- 324
-  
-  
-  
-  
- GUINEA-BISSAU
- GW
- GNB
- 624
-  
-  
-  
-  
- GUYANA
- GY
- GUY
- 328
-  
-  
-  
-  
- HAITI
- HT
- HTI
- 332
-  
-  
-  
-  
- HEARD ISLAND & MCDONALD ISLANDS
- HM
- HMD
- 334
-  
-  
-  
-  
- HONDURAS
- HN
- HND
- 340
- CTRY_HONDURAS
- 504
-  
-  
- HONG KONG
- HK
- HKG
- 344
- CTRY_HONG_KONG
- 852
-  
-  
- HUNGARY
- HU
- HUN
- 348
- CTRY_HUNGARY
- 36
- verHungary
- 43
- ICELAND
- IS
- ISL
- 352
- CTRY_ICELAND
- 354
- verIceland
- 21
- INDIA
- IN
- IND
- 356
- CTRY_INDIA
- 91
- verIndiaHindi(hi)
- 33
- INDONESIA
- ID
- IDN
- 360
- CTRY_INDONESIA
- 62
-  
-  
- IRAN, ISLAMIC REPUBLIC OF
- IR
- IRN
- 364
- CTRY_IRAN
- 981
- verIran
- 48
- IRAQ
- IQ
- IRQ
- 368
- CTRY_IRAQ
- 964
- verArabic
- 16
- IRELAND
- IE
- IRL
- 372
- CTRY_IRELAND
- 353
- verIreland
- 50
- ISRAEL
- IL
- ISR
- 376
- CTRY_ISRAEL
- 972
- verIsrael
- 13
- ITALY
- IT
- ITA
- 380
- CTRY_ITALY
- 39
- verItaly
- 4
- JAMAICA
- JM
- JAM
- 388
- CTRY_JAMAICA
- 1
-  
-  
- JAPAN
- JP
- JPN
- 392
- CTRY_JAPAN
- 81
- verJapan
- 14
- JORDAN
- JO
- JOR
- 400
- CTRY_JORDAN
- 962
-  
-  
- KAZAKHSTAN
- KZ
- KAZ
- 398
- CTRY_KAZAKSTAN
- 7
-  
-  
- KENYA
- KE
- KEN
- 404
- CTRY_KENYA
- 254
-  
-  
- KIRIBATI
- KI
- KIR
- 296
-  
-  
-  
-  
- KOREA, DEMOCRATIC PEOPLE''S REPUBLIC OF
- KP
- PRK
- 408
-  
-  
- verKorea
- 51
- KOREA, REPUBLIC OF
- KR
- KOR
- 410
- CTRY_SOUTH_KOREA
- 82
- verKorea
-  
- KUWAIT
- KW
- KWT
- 414
- CTRY_KUWAIT
- 965
-  
-  
- KYRGYZSTAN
- KG
- KGZ
- 417
- CTRY_KYRGYZSTAN
- 996
-  
-  
- LAO PEOPLE''S DEMOCRATIC REPUBLIC
- LA
- LAO
- 418
-  
-  
-  
-  
- LATVIA
- LV
- LVA
- 428
- CTRY_LATVIA
- 371
- verLatvia
- 45
- LEBANON
- LB
- LBN
- 422
- CTRY_LEBANON
- 961
-  
-  
- LESOTHO
- LS
- LSO
- 426
-  
-  
-  
-  
- LIBERIA
- LR
- LBR
- 430
-  
-  
-  
-  
- LIBYAN ARAB JAMAHIRIYA
- LY
- LBY
- 434
- CTRY_LIBYA
- 218
- verArabic
- 16
- LIECHTENSTEIN
- LI
- LIE
- 438
- CTRY_LIECHTENSTEIN
- 41
-  
-  
- LITHUANIA
- LT
- LTU
- 440
- CTRY_LITHUANIA
- 370
- verLithuania
- 41
- LUXEMBOURG
- LU
- LUX
- 442
- CTRY_LUXEMBOURG
- 352
- verFrBelgiumLux
- 6
- MACAU
- MO
- MAC
- 446
- CTRY_MACAU
- 853
-  
-  
- MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF
- MK
- MKD
- 807
- CTRY_MACEDONIA
- 389
- verMacedonian
-  
- MADAGASCAR
- MG
- MDG
- 450
-  
-  
-  
-  
- MALAWI
- MW
- MWI
- 454
-  
-  
-  
-  
- MALAYSIA
- MY
- MYS
- 458
- CTRY_MALAYSIA
- 60
-  
-  
- MALDIVES
- MV
- MDV
- 462
- CTRY_MALDIVES
- 960
-  
-  
- MALI
- ML
- MLI
- 466
-  
-  
-  
-  
- MALTA
- MT
- MLT
- 470
-  
-  
- verMalta
- 22
- MARSHALL ISLANDS
- MH
- MHL
- 584
-  
-  
-  
-  
- MARTINIQUE
- MQ
- MTQ
- 474
-  
-  
-  
-  
- MAURITANIA
- MR
- MRT
- 478
-  
-  
-  
-  
- MAURITIUS
- MU
- MUS
- 480
-  
-  
-  
-  
- MAYOTTE
- YT
- MYT
- 175
-  
-  
-  
-  
- MEXICO
- MX
- MEX
- 484
- CTRY_MEXICO
- 52
-  
-  
- MICRONESIA, FEDERATED STATES OF
- FM
- FSM
- 583
-  
-  
-  
-  
- MOLDOVA, REPUBLIC OF
- MD
- MDA
- 498
-  
-  
-  
-  
- MONACO
- MC
- MCO
- 492
- CTRY_MONACO
- 33
-  
-  
- MONGOLIA
- MN
- MNG
- 496
- CTRY_MONGOLIA
- 976
-  
-  
- MONTSERRAT
- MS
- MSR
- 500
-  
-  
-  
-  
- MOROCCO
- MA
- MAR
- 504
- CTRY_MOROCCO
- 212
- verArabic
- 16
- MOZAMBIQUE
- MZ
- MOZ
- 508
-  
-  
-  
-  
- MYANMAR
- MM
- MMR
- 104
-  
-  
-  
-  
- NAMIBIA
- NA
- NAM
- 516
-  
-  
-  
-  
- NAURU
- NR
- NRU
- 520
-  
-  
-  
-  
- NEPAL
- NP
- NPL
- 524
-  
-  
- verNepal
- 106
- NETHERLANDS
- NL
- NLD
- 528
- CTRY_NETHERLANDS
- 31
- verNetherlands
- 5
- NETHERLANDS ANTILLES
- AN
- ANT
- 530
-  
-  
-  
-  
- NEW CALEDONIA
- NC
- NCL
- 540
-  
-  
-  
-  
- NEW ZEALAND
- NZ
- NZL
- 554
- CTRY_NEW_ZEALAND
- 64
-  
-  
- NICARAGUA
- NI
- NIC
- 558
- CTRY_NICARAGUA
- 505
-  
-  
- NIGER
- NE
- NER
- 562
-  
-  
-  
-  
- NIGERIA
- NG
- NGA
- 566
-  
-  
-  
-  
- NIUE
- NU
- NIU
- 570
-  
-  
-  
-  
- NORFOLK ISLAND
- NF
- NFK
- 574
-  
-  
-  
-  
- NORTHERN MARIANA ISLANDS
- MP
- MNP
- 580
-  
-  
-  
-  
- NORWAY
- NO
- NOR
- 578
- CTRY_NORWAY
- 47
- verNorway
- 12
- OMAN
- OM
- OMN
- 512
- CTRY_OMAN
- 968
-  
-  
- PAKISTAN
- PK
- PAK
- 586
- CTRY_PAKISTAN
- 92
- verPakistanUrdu, verPunjabi
- 34 (U), 95 (P)
- PALAU
- PW
- PLW
- 585
-  
-  
-  
-  
- PANAMA
- PA
- PAN
- 591
- CTRY_PANAMA
- 507
-  
-  
- PALESTINIAN TERRITORY, OCCUPIED
- PS
-
-
-
-
-  
-  
- PAPUA NEW GUINEA
- PG
- PNG
- 598
-  
-  
-  
-  
- PARAGUAY
- PY
- PRY
- 600
- CTRY_PARAGUAY
- 595
-  
-  
- PERU
- PE
- PER
- 604
- CTRY_PERU
- 51
-  
-  
- PHILIPPINES
- PH
- PHL
- 608
- CTRY_PHILIPPINES
- 63
-  
-  
- PITCAIRN
- PN
- PCN
- 612
-  
-  
-  
-  
- POLAND
- PL
- POL
- 616
- CTRY_POLAND
- 48
- verPoland
- 42
- PORTUGAL
- PT
- PRT
- 620
- CTRY_PORTUGAL
- 351
- verPortugal
- 10
- PUERTO RICO
- PR
- PRI
- 630
- CTRY_PUERTO_RICO
- 1
-  
-  
- QATAR
- QA
- QAT
- 634
- CTRY_QATAR
- 974
-  
-  
- REUNION
- RE
- REU
- 638
-  
-  
-  
-  
- ROMANIA
- RO
- ROU*
- 642
- CTRY_ROMANIA
- 40
- verRomania
- 39
- RUSSIAN FEDERATION
- RU
- RUS
- 643
- CTRY_RUSSIA
- 7
- verRussia
- 49
- RWANDA
- RW
- RWA
- 646
-  
-  
-  
-  
- SAINT KITTS AND NEVIS
- KN
- KNA
- 659
-  
-  
-  
-  
- SAINT LUCIA
- LC
- LCA
- 662
-  
-  
-  
-  
- SAINT VINCENT AND THE GRENADINES
- VC
- VCT
- 670
-  
-  
-  
-  
- SAMOA
- WS
- WSM
- 882
-  
-  
-  
-  
- SAN MARINO
- SM
- SMR
- 674
-  
-  
-  
-  
- SAO TOME AND PRINCIPE
- ST
- STP
- 678
-  
-  
-  
-  
- SAUDI ARABIA
- SA
- SAU
- 682
- CTRY_SAUDI_ARABIA
- 966
- verArabic
- 16
- SENEGAL
- SN
- SEN
- 686
-  
-  
-  
-  
- SERBIA AND MONTENEGRO
- CS
-  
-  
- CTRY_SERBIA
- 381
-  
-  
- SEYCHELLES
- SC
- SYC
- 690
-  
-  
-  
-  
- SIERRA LEONE
- SL
- SLE
- 694
-  
-  
-  
-  
- SINGAPORE
- SG
- SGP
- 702
- CTRY_SINGAPORE
- 65
- verSingapore
- 100
- SLOVAKIA (Slovak Republic)
- SK
- SVK
- 703
- CTRY_SLOVAK
- 421
- verSlovak
- 57 
- SLOVENIA
- SI
- SVN
- 705
- CTRY_SLOVENIA
- 386
- verSlovenian
- 66
- SOLOMON ISLANDS
- SB
- SLB
- 90
-  
-  
-  
-  
- SOMALIA
- SO
- SOM
- 706
-  
-  
-  
-  
- SOUTH AFRICA
- ZA
- ZAF
- 710
- CTRY_SOUTH_AFRICA
- 27
-  
-  
- SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS
- GS
-
-
-
-
-  
-  
- SPAIN
- ES
- ESP
- 724
- CTRY_SPAIN
- 34
- verSpain
- 8
- SRI LANKA
- LK
- LKA
- 144
-  
-  
-  
-  
- SAINT HELENA
- SH
- SHN
- 654
-  
-  
-  
-  
- SAINT PIERRE AND MIQUELON
- PM
- SPM
- 666
-  
-  
-  
-  
- SUDAN
- SD
- SDN
- 736
-  
-  
-  
-  
- SURINAME
- SR
- SUR
- 740
-  
-  
-  
-  
- SVALBARD AND JAN MAYEN ISLANDS
- SJ
- SJM
- 744
-  
-  
-  
-  
- SWAZILAND
- SZ
- SWZ
- 748
-  
-  
-  
-  
- SWEDEN
- SE
- SWE
- 752
- CTRY_SWEDEN
- 46
- verSweden
- 7
- SWITZERLAND
- CH
- CHE
- 756
- CTRY_SWITZERLAND
- 41
- verFrSwiss(fr), verGrSwiss(de)
- 18(fr), 19(de)
- SYRIAN ARAB REPUBLIC
- SY
- SYR
- 760
- CTRY_SYRIA
- 963
-  
-  
- TAIWAN, PROVINCE OF CHINA
- TW
- TWN
- 158
- CTRY_TAIWAN
- 886
- verTaiwan
- 53
- TAJIKISTAN
- TJ
- TJK
- 762
-  
-  
-  
-  
- TANZANIA, UNITED REPUBLIC OF
- TZ
- TZA
- 834
-  
-  
-  
-  
- TATARSTAN
-
-
-  
- CTRY_TATARSTAN
- 7
-  
-  
- THAILAND
- TH
- THA
- 764
- CTRY_THAILAND
- 66
- verThailand
- 54
- TIMOR-LESTE
- TL
-
-
-  
-  
-  
-  
- TOGO
- TG
- TGO
- 768
-  
-  
-  
-  
- TOKELAU
- TK
- TKL
- 772
-  
-  
-  
-  
- TONGA
- TO
- TON
- 776
-  
-  
- verTonga
- 88
- TRINIDAD AND TOBAGO
- TT
- TTO
- 780
- CTRY_TRINIDAD_Y_TOBAGO
- 1
-  
-  
- TUNISIA
- TN
- TUN
- 788
- CTRY_TUNISIA
- 216
- verArabic
- 16
- TURKEY
- TR
- TUR
- 792
- CTRY_TURKEY
- 90
- verTurkey
- 24
- TURKMENISTAN
- TM
- TKM
- 795
-  
-  
-  
-  
- TURKS AND CAICOS ISLANDS
- TC
- TCA
- 796
-  
-  
-  
-  
- TUVALU
- TV
- TUV
- 798
-  
-  
-  
-  
- UGANDA
- UG
- UGA
- 800
-  
-  
-  
-  
- UKRAINE
- UA
- UKR
- 804
- CTRY_UKRAINE
- 380
- verUkraine 
- 62
- UNITED ARAB EMIRATES
- AE
- ARE
- 784
- CTRY_UAE
- 971
-  
-  
- UNITED KINGDOM
- GB
- GBR
- 826
- CTRY_UNITED_KINGDOM
- 44
- verBritain
- 2
- UNITED STATES
- US
- USA
- 840
- CTRY_UNITED_STATES
- 1
- verUS
- 0
- UNITED STATES MINOR OUTLYING ISLANDS
- UM
- UMI
- 581
-  
-  
-  
-  
- URUGUAY
- UY
- URY
- 858
- CTRY_URUGUAY
- 598
-  
-  
- UZBEKISTAN
- UZ
- UZB
- 860
- CTRY_UZBEKISTAN
- 7
-  
-  
- VANUATU
- VU
- VUT
- 548
-  
-  
-  
-  
- VATICAN CITY STATE (HOLY SEE)
- VA
- VAT
- 336
-  
-  
-  
-  
- VENEZUELA
- VE
- VEN
- 862
- CTRY_VENEZUELA
- 58
-  
-  
- VIET NAM
- VN
- VNM
- 704
- CTRY_VIET_NAM
- 84
- verVietnam
-  
- VIRGIN ISLANDS (BRITISH)
- VG
- VGB
- 92
-  
-  
-  
-  
- VIRGIN ISLANDS (U.S.)
- VI
- VIR
- 850
-  
-  
-  
-  
- WALLIS AND FUTUNA ISLANDS
- WF
- WLF
- 876
-  
-  
-  
-  
- WESTERN SAHARA
- EH
- ESH
- 732
-  
-  
-  
-  
- YEMEN
- YE
- YEM
- 887
- CTRY_YEMEN
- 967
-  
-  
- YUGOSLAVIA
- YU
- YUG
- 891
-  
-  
-  
-  
- ZAIRE
- ZR
- ZAR
- 180
-  
-  
-  
-  
- ZAMBIA
- ZM
- ZMB
- 894
-  
-  
-  
-  
- ZIMBABWE
- ZW
- ZWE
- 716
- CTRY_ZIMBABWE
- 263
-  
-  
- '!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3Countries (in category 'private') -----
- iso3Countries
- "ISOLanguageDefinition iso3Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO3Countries ifNil: [self initISOCountries].
- ^ISO3Countries!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageDefinition: (in category 'accessing') -----
- iso3LanguageDefinition: aString
- ^self iso3LanguageTable at: aString!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageTable (in category 'private') -----
- iso3LanguageTable
- "ISOLanguageDefinition iso3LanguageTable"
-
- ^ISO3Table ifNil: [ISO3Table := self initISO3LanguageTable]!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>isoLanguages (in category 'private') -----
- isoLanguages
- "ISO 639: 3-letter codes"
- ^'abk ab Abkhazian
- ace Achinese
- ach Acoli
- ada Adangme
- aar aa Afar
- afh Afrihili
- afr af Afrikaans
- afa Afro-Asiatic (Other)
- aka Akan
- akk Akkadian
- alb/sqi sq Albanian
- ale Aleut
- alg Algonquian languages
- tut Altaic (Other)
- amh am Amharic
- apa Apache languages
- ara ar Arabic
- arc Aramaic
- arp Arapaho
- arn Araucanian
- arw Arawak
- arm/hye hy Armenian
- art Artificial (Other)
- asm as Assamese
- ath Athapascan languages
- map Austronesian (Other)
- ava Avaric
- ave Avestan
- awa Awadhi
- aym ay Aymara
- aze az Azerbaijani
- nah Aztec
- ban Balinese
- bat Baltic (Other)
- bal Baluchi
- bam Bambara
- bai Bamileke languages
- bad Banda
- bnt Bantu (Other)
- bas Basa
- bak ba Bashkir
- baq/eus eu Basque
- bej Beja
- bem Bemba
- ben bn Bengali
- ber Berber (Other)
- bho Bhojpuri
- bih bh Bihari
- bik Bikol
- bin Bini
- bis bi Bislama
- bra Braj
- bre be Breton
- bug Buginese
- bul bg Bulgarian
- bua Buriat
- bur/mya my Burmese
- bel be Byelorussian
- cad Caddo
- car Carib
- cat ca Catalan
- cau Caucasian (Other)
- ceb Cebuano
- cel Celtic (Other)
- cai Central American Indian (Other)
- chg Chagatai
- cha Chamorro
- che Chechen
- chr Cherokee
- chy Cheyenne
- chb Chibcha
- chi/zho zh Chinese
- chn Chinook jargon
- cho Choctaw
- chu Church Slavic
- chv Chuvash
- cop Coptic
- cor Cornish
- cos co Corsican
- cre Cree
- mus Creek
- crp Creoles and Pidgins (Other)
- cpe Creoles and Pidgins, English-based (Other)
- cpf Creoles and Pidgins, French-based (Other)
- cpp Creoles and Pidgins, Portuguese-based (Other)
- cus Cushitic (Other)
- hr Croatian
- ces/cze cs Czech
- dak Dakota
- dan da Danish
- del Delaware
- din Dinka
- div Divehi
- doi Dogri
- dra Dravidian (Other)
- dua Duala
- dut/nla nl Dutch
- dum Dutch, Middle (ca. 1050-1350)
- dyu Dyula
- dzo dz Dzongkha
- efi Efik
- egy Egyptian (Ancient)
- eka Ekajuk
- elx Elamite
- eng en English
- enm English, Middle (ca. 1100-1500)
- ang English, Old (ca. 450-1100)
- esk Eskimo (Other)
- epo eo Esperanto
- est et Estonian
- ewe Ewe
- ewo Ewondo
- fan Fang
- fat Fanti
- fao fo Faroese
- fij fj Fijian
- fin fi Finnish
- fiu Finno-Ugrian (Other)
- fon Fon
- fra/fre fr French
- frm French, Middle (ca. 1400-1600)
- fro French, Old (842- ca. 1400)
- fry fy Frisian
- ful Fulah
- gaa Ga
- gae/gdh Gaelic (Scots)
- glg gl Gallegan
- lug Ganda
- gay Gayo
- gez Geez
- geo/kat ka Georgian
- deu/ger de German
- gmh German, Middle High (ca. 1050-1500)
- goh German, Old High (ca. 750-1050)
- gem Germanic (Other)
- gil Gilbertese
- gon Gondi
- got Gothic
- grb Grebo
- grc Greek, Ancient (to 1453)
- ell/gre el Greek, Modern (1453-)
- kal kl Greenlandic
- grn gn Guarani
- guj gu Gujarati
- hai Haida
- hau ha Hausa
- haw Hawaiian
- heb he Hebrew
- her Herero
- hil Hiligaynon
- him Himachali
- hin hi Hindi
- hmo Hiri Motu
- hun hu Hungarian
- hup Hupa
- iba Iban
- ice/isl is Icelandic
- ibo Igbo
- ijo Ijo
- ilo Iloko
- inc Indic (Other)
- ine Indo-European (Other)
- ind id Indonesian
- ina ia Interlingua (International Auxiliary language Association)
- ine Interlingue
- iku iu Inuktitut
- ipk ik Inupiak
- ira Iranian (Other)
- gai/iri ga Irish
- sga Irish, Old (to 900)
- mga Irish, Middle (900 - 1200)
- iro Iroquoian languages
- ita it Italian
- jpn ja Japanese
- jav/jaw jv/jw Javanese
- jrb Judeo-Arabic
- jpr Judeo-Persian
- kab Kabyle
- kac Kachin
- kam Kamba
- kan kn Kannada
- kau Kanuri
- kaa Kara-Kalpak
- kar Karen
- kas ks Kashmiri
- kaw Kawi
- kaz kk Kazakh
- kha Khasi
- khm km Khmer
- khi Khoisan (Other)
- kho Khotanese
- kik Kikuyu
- kin rw Kinyarwanda
- kir ky Kirghiz
- kom Komi
- kon Kongo
- kok Konkani
- kor ko Korean
- kpe Kpelle
- kro Kru
- kua Kuanyama
- kum Kumyk
- kur ku Kurdish
- kru Kurukh
- kus Kusaie
- kut Kutenai
- lad Ladino
- lah Lahnda
- lam Lamba
- oci oc Langue d''Oc (post 1500)
- lao lo Lao
- lat la Latin
- lav lv Latvian
- ltz Letzeburgesch
- lez Lezghian
- lin ln Lingala
- lit lt Lithuanian
- loz Lozi
- lub Luba-Katanga
- lui Luiseno
- lun Lunda
- luo Luo (Kenya and Tanzania)
- mac/mak mk Macedonian
- mad Madurese
- mag Magahi
- mai Maithili
- mak Makasar
- mlg mg Malagasy
- may/msa ms Malay
- mal Malayalam
- mlt ml Maltese
- man Mandingo
- mni Manipuri
- mno Manobo languages
- max Manx
- mao/mri mi Maori
- mar mr Marathi
- chm Mari
- mah Marshall
- mwr Marwari
- mas Masai
- myn Mayan languages
- men Mende
- mic Micmac
- min Minangkabau
- mis Miscellaneous (Other)
- moh Mohawk
- mol mo Moldavian
- mkh Mon-Kmer (Other)
- lol Mongo
- mon mn Mongolian
- mos Mossi
- mul Multiple languages
- mun Munda languages
- nau na Nauru
- nav Navajo
- nde Ndebele, North
- nbl Ndebele, South
- ndo Ndongo
- nep ne Nepali
- new Newari
- nic Niger-Kordofanian (Other)
- ssa Nilo-Saharan (Other)
- niu Niuean
- non Norse, Old
- nai North American Indian (Other)
- nor no Norwegian
- nno Norwegian (Nynorsk)
- nub Nubian languages
- nym Nyamwezi
- nya Nyanja
- nyn Nyankole
- nyo Nyoro
- nzi Nzima
- oji Ojibwa
- ori or Oriya
- orm om Oromo
- osa Osage
- oss Ossetic
- oto Otomian languages
- pal Pahlavi
- pau Palauan
- pli Pali
- pam Pampanga
- pag Pangasinan
- pan pa Panjabi
- pap Papiamento
- paa Papuan-Australian (Other)
- fas/per fa Persian
- peo Persian, Old (ca 600 - 400 B.C.)
- phn Phoenician
- pol pl Polish
- pon Ponape
- por pt Portuguese
- pra Prakrit languages
- pro Provencal, Old (to 1500)
- pus ps Pushto
- que qu Quechua
- roh rm Rhaeto-Romance
- raj Rajasthani
- rar Rarotongan
- roa Romance (Other)
- ron/rum ro Romanian
- rom Romany
- run rn Rundi
- rus ru Russian
- sal Salishan languages
- sam Samaritan Aramaic
- smi Sami languages
- smo sm Samoan
- sad Sandawe
- sag sg Sango
- san sa Sanskrit
- srd Sardinian
- sco Scots
- sel Selkup
- sem Semitic (Other)
- sr Serbian
- scr sh Serbo-Croatian
- srr Serer
- shn Shan
- sna sn Shona
- sid Sidamo
- bla Siksika
- snd sd Sindhi
- sin si Singhalese
- sit Sino-Tibetan (Other)
- sio Siouan languages
- sla Slavic (Other)
- ssw ss Siswant
- slk/slo sk Slovak
- slv sl Slovenian
- sog Sogdian
- som so Somali
- son Songhai
- wen Sorbian languages
- nso Sotho, Northern
- sot st Sotho, Southern
- sai South American Indian (Other)
- esl/spa es Spanish
- suk Sukuma
- sux Sumerian
- sun su Sudanese
- sus Susu
- swa sw Swahili
- ssw Swazi
- sve/swe sv Swedish
- syr Syriac
- tgl tl Tagalog
- tah Tahitian
- tgk tg Tajik
- tmh Tamashek
- tam ta Tamil
- tat tt Tatar
- tel te Telugu
- ter Tereno
- tha th Thai
- bod/tib bo Tibetan
- tig Tigre
- tir ti Tigrinya
- tem Timne
- tiv Tivi
- tli Tlingit
- tog to Tonga (Nyasa)
- ton Tonga (Tonga Islands)
- tru Truk
- tsi Tsimshian
- tso ts Tsonga
- tsn tn Tswana
- tum Tumbuka
- tur tr Turkish
- ota Turkish, Ottoman (1500 - 1928)
- tuk tk Turkmen
- tyv Tuvinian
- twi tw Twi
- uga Ugaritic
- uig ug Uighur
- ukr uk Ukrainian
- umb Umbundu
- und Undetermined
- urd ur Urdu
- uzb uz Uzbek
- vai Vai
- ven Venda
- vie vi Vietnamese
- vol vo Volapük
- vot Votic
- wak Wakashan languages
- wal Walamo
- war Waray
- was Washo
- cym/wel cy Welsh
- wol wo Wolof
- xho xh Xhosa
- sah Yakut
- yao Yao
- yap Yap
- yid yi Yiddish
- yor yo Yoruba
- zap Zapotec
- zen Zenaga
- zha za Zhuang
- zul zu Zulu
- zun Zuni'!

Item was removed:
- ----- Method: ISOLanguageDefinition class>>readISOLanguagesFrom: (in category 'private') -----
- readISOLanguagesFrom: stream
- "ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream "
- | languages language code3 index line |
- languages := Dictionary new.
- [stream atEnd
- or: [(line := stream nextLine readStream) atEnd]]
- whileFalse: [
- language := ISOLanguageDefinition new.
- code3 := line upTo: Character tab.
- (index := code3 indexOf: $/) > 0
- ifTrue: [
- language iso3: (code3 copyFrom: 1 to: index-1).
- language iso3Alternate: (code3 copyFrom: index+1 to: code3 size)]
- ifFalse: [language iso3: code3].
- language
- iso2: (line upTo: Character tab);
- language: line upToEnd.
- languages at: language iso3 put: language].
- ^languages!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2 (in category 'accessing') -----
- iso2
- ^iso2 ifNil: [self iso3]!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2: (in category 'initialize') -----
- iso2: aString
- iso2 := aString ifEmpty: [nil] ifNotEmpty: [aString]!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3 (in category 'accessing') -----
- iso3
- ^iso3 ifNil: ['']!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3: (in category 'initialize') -----
- iso3: aString
- iso3 := aString ifEmpty: [nil] ifNotEmpty: [aString]!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3Alternate (in category 'accessing') -----
- iso3Alternate
- ^iso3Alternate ifNil: ['']!

Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3Alternate: (in category 'initialize') -----
- iso3Alternate: aString
- iso3Alternate := aString ifEmpty: [nil] ifNotEmpty: [aString]!

Item was removed:
- ----- Method: ISOLanguageDefinition>>language (in category 'accessing') -----
- language
- ^language!

Item was removed:
- ----- Method: ISOLanguageDefinition>>language: (in category 'initialize') -----
- language: aString
- language := aString!

Item was removed:
- Object subclass: #Locale
- instanceVariableNames: 'id shortDate longDate time decimalSymbol digitGrouping currencySymbol currencyNotation measurement offsetLocalToUTC offsetVMToUTC dstActive'
- classVariableNames: 'Current CurrentPlatform KnownLocales LanguageSymbols LocaleChangeListeners PlatformEncodings'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !Locale commentStamp: '<historical>' prior: 0!
- Main comment stating the purpose of this class and relevant relationship to other classes.
-
-
-
- http://www.w3.org/WAI/ER/IG/ert/iso639.htm
- http://www.oasis-open.org/cover/iso639a.html
- See also
- http://oss.software.ibm.com/cvs/icu/~checkout~/icuhtml/design/language_code_issues.html
- http://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html#sec3.10
-
- ISO 3166
- http://mitglied.lycos.de/buran/knowhow/codes/locales/
- !

Item was removed:
- ----- Method: Locale class>>addLocalChangedListener: (in category 'notification') -----
- addLocalChangedListener: anObjectOrClass
- self localeChangedListeners add: anObjectOrClass!

Item was removed:
- ----- Method: Locale class>>clipboadInterpreter (in category 'accessing') -----
- clipboadInterpreter
- ^NoConversionClipboardInterpreter new!

Item was removed:
- ----- Method: Locale class>>current (in category 'accessing') -----
- current
- "Current := nil"
- Current ifNil: [
- Current := self determineCurrentLocale.
- "Transcript show: 'Current locale: ' , Current localeID asString; cr"].
- ^Current!

Item was removed:
- ----- Method: Locale class>>currentPlatform (in category 'accessing') -----
- currentPlatform
- "CurrentPlatform := nil"
- CurrentPlatform ifNil: [CurrentPlatform := self determineCurrentLocale].
- ^CurrentPlatform!

Item was removed:
- ----- Method: Locale class>>currentPlatform: (in category 'accessing') -----
- currentPlatform: locale
- CurrentPlatform := locale.
- LanguageEnvironment startUp.
- !

Item was removed:
- ----- Method: Locale class>>currentPlatform:during: (in category 'accessing') -----
- currentPlatform: locale during: aBlock
- "Alter current language platform during a block"
- | backupPlatform |
- backupPlatform := self currentPlatform.
- [self currentPlatform: locale.
- aBlock value]
- ensure: [self currentPlatform: backupPlatform]!

Item was removed:
- ----- Method: Locale class>>defaultEncodingName: (in category 'platform specific') -----
- defaultEncodingName: languageSymbol
- | encodings platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current osVersion.
- encodings := self platformEncodings at: languageSymbol
- ifAbsent: [self platformEncodings at: #default].
- encodings at: platformName ifPresent: [:encoding | ^encoding].
- encodings at: platformName , ' ' , osVersion
- ifPresent: [:encoding | ^encoding].
- ^encodings at: #default!

Item was removed:
- ----- Method: Locale class>>defaultInputInterpreter (in category 'platform specific') -----
- defaultInputInterpreter
- | platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current osVersion.
- (platformName = 'Win32' and: [osVersion = 'CE'])
- ifTrue: [^NoInputInterpreter new].
- platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new].
- ^NoInputInterpreter new!

Item was removed:
- ----- Method: Locale class>>determineCurrentLocale (in category 'private') -----
- determineCurrentLocale
- "For now just return the default locale.
- A smarter way would be to determine the current platforms default locale."
- "Locale determineCurrentLocale"
-
- ^self new determineLocale!

Item was removed:
- ----- Method: Locale class>>initKnownLocales (in category 'private') -----
- initKnownLocales
- | locales |
- locales := Dictionary new.
-
- "Init the locales for which we have translations"
- NaturalLanguageTranslator availableLanguageLocaleIDs do: [:id |
- locales at: id put: (Locale new localeID: id)].
- ^locales!

Item was removed:
- ----- Method: Locale class>>initialize (in category 'class initialization') -----
- initialize
- "Locale initialize"
-
- Smalltalk addToStartUpList: Locale.
- Preferences addPreference: #useLocale
- categories: #('general') default: false
- balloonHelp: 'Use the system locale to set the system language etc at startup'.!

Item was removed:
- ----- Method: Locale class>>initializePlatformEncodings (in category 'class initialization') -----
- initializePlatformEncodings
- "Locale initializePlatformEncodings"
-
- | platform |
- PlatformEncodings ifNil: [ PlatformEncodings := Dictionary new ].
-
- platform := PlatformEncodings at: 'default' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'iso8859-1';
- at: 'Win32 CE' put: 'utf-8'.
-
- platform := PlatformEncodings at: 'ja' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'shift-jis';
- at: 'unix' put: 'euc-jp';
- at: 'Win32 CE' put: 'utf-8'.
-
- platform := PlatformEncodings at: 'ko' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'euc-kr';
- at: 'Win32 CE' put: 'utf-8'.
-
- platform := PlatformEncodings at: 'zh' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'gb2312';
- at: 'unix' put: 'euc-cn';
- at: 'Win32 CE' put: 'utf-8'!

Item was removed:
- ----- Method: Locale class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- ^self isoLanguage: isoLanguage isoCountry: nil!

Item was removed:
- ----- Method: Locale class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID  isoLanguage: isoLanguage isoCountry: isoCountry)!

Item was removed:
- ----- Method: Locale class>>isoLocale: (in category 'accessing') -----
- isoLocale: aString
- !

Item was removed:
- ----- Method: Locale class>>knownLocales (in category 'private') -----
- knownLocales
- "KnownLocales := nil"
- ^KnownLocales ifNil: [KnownLocales := self initKnownLocales]!

Item was removed:
- ----- Method: Locale class>>languageSymbol: (in category 'accessing') -----
- languageSymbol: languageSymbol
- "Locale languageSymbol: #Deutsch"
-
- ^self isoLanguage: (LanguageSymbols at: languageSymbol)!

Item was removed:
- ----- Method: Locale class>>localeChanged (in category 'notification') -----
- localeChanged
- #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
- do: [:key | Smalltalk
- at: key
- ifPresent: [:class | class initialize]].
- StrikeFont localeChanged.
- PartsBin localeChanged.
- Project localeChanged.
- PaintBoxMorph localeChanged.
- ColorPickerMorph localeChanged.
- Preferences localeChanged!

Item was removed:
- ----- Method: Locale class>>localeChangedListeners (in category 'notification') -----
- localeChangedListeners
- ^LocaleChangeListeners ifNil: [LocaleChangeListeners := OrderedCollection new]!

Item was removed:
- ----- Method: Locale class>>localeID: (in category 'accessing') -----
- localeID: id
- ^self knownLocales at: id ifAbsentPut: [Locale new localeID: id]!

Item was removed:
- ----- Method: Locale class>>platformEncodings (in category 'class initialization') -----
- platformEncodings
- PlatformEncodings isEmptyOrNil ifTrue: [ self initializePlatformEncodings ].
- ^PlatformEncodings
- !

Item was removed:
- ----- Method: Locale class>>resetKnownLocales (in category 'private') -----
- resetKnownLocales
-
- KnownLocales := nil
- !

Item was removed:
- ----- Method: Locale class>>startUp: (in category 'system startUp') -----
- startUp: resuming
- | newID |
- resuming ifFalse: [^self].
- DateAndTime localTimeZone: (TimeZone
- offset:  (Duration minutes: self current offsetLocalToUTC)
- name: 'Local Time'
- abbreviation: 'LT').
- (Preferences valueOfFlag: #useLocale)
- ifTrue: [
- newID := self current determineLocaleID.
- newID ~= LocaleID current
- ifTrue: [self switchToID: newID]]!

Item was removed:
- ----- Method: Locale class>>stringForLanguageNameIs: (in category 'accessing') -----
- stringForLanguageNameIs: localeID
- "Answer a string for a menu determining whether the given  
- symbol is the project's natural language"
- ^ (self current localeID = localeID
- ifTrue: ['<yes>']
- ifFalse: ['<no>'])
- , localeID displayName!

Item was removed:
- ----- Method: Locale class>>switchAndInstallFontToID: (in category 'accessing') -----
- switchAndInstallFontToID: localeID
- "Locale switchAndInstallFontToID: (LocaleID isoLanguage: 'de')"
- | locale |
- locale := Locale localeID: localeID.
- locale languageEnvironment isFontAvailable
- ifFalse: [(self confirm: 'This language needs additional fonts.
- Do you want to install the fonts?' translated)
- ifTrue: [locale languageEnvironment installFont]
- ifFalse: [^ self]].
- self
- switchTo: locale!

Item was removed:
- ----- Method: Locale class>>switchTo: (in category 'accessing') -----
- switchTo: locale
- "Locale switchTo: Locale isoLanguage: 'de'"
- Current localeID = locale localeID
- ifFalse: [Current := locale.
- CurrentPlatform := locale.
- self localeChanged]!

Item was removed:
- ----- Method: Locale class>>switchToID: (in category 'accessing') -----
- switchToID: localeID
- "Locale switchToID: (LocaleID isoLanguage: 'de') "
-
- self switchTo: (Locale localeID: localeID)!

Item was removed:
- ----- Method: Locale>>determineLocale (in category 'accessing') -----
- determineLocale
- self localeID: self determineLocaleID!

Item was removed:
- ----- Method: Locale>>determineLocaleID (in category 'accessing') -----
- determineLocaleID
- "Locale current determineLocaleID"
- | langCode isoLang countryCode isoCountry |
- langCode := self fetchISO2Language.
- isoLang := langCode
- ifNil: [^self localeID]
- ifNotNil: [langCode].
- countryCode := self primCountry.
- isoCountry := countryCode
- ifNil: [^LocaleID isoLanguage: isoLang]
- ifNotNil: [countryCode].
- ^LocaleID isoLanguage: isoLang isoCountry: isoCountry!

Item was removed:
- ----- Method: Locale>>fetchISO2Language (in category 'private') -----
- fetchISO2Language
- "Locale current fetchISO2Language"
- | lang isoLang |
- lang := self primLanguage.
- lang ifNil: [^nil].
- lang := lang copyUpTo: 0 asCharacter.
- lang size = 2
- ifTrue: [^lang].
- isoLang := ISOLanguageDefinition iso3LanguageDefinition: lang.
- ^isoLang
- ifNil: [nil]
- ifNotNil: [isoLang iso2]!

Item was removed:
- ----- Method: Locale>>isoCountry (in category 'accessing') -----
- isoCountry
- ^self localeID isoCountry!

Item was removed:
- ----- Method: Locale>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^self localeID isoLanguage!

Item was removed:
- ----- Method: Locale>>isoLocale (in category 'accessing') -----
- isoLocale
- "<language>-<country>"
- ^self isoCountry
- ifNil: [self isoLanguage]
- ifNotNil: [self isoLanguage , '-' , self isoCountry]!

Item was removed:
- ----- Method: Locale>>languageEnvironment (in category 'accessing') -----
- languageEnvironment
- ^LanguageEnvironment localeID: self localeID!

Item was removed:
- ----- Method: Locale>>localeID (in category 'accessing') -----
- localeID
- ^id!

Item was removed:
- ----- Method: Locale>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!

Item was removed:
- ----- Method: Locale>>offsetLocalToUTC (in category 'accessing') -----
- offsetLocalToUTC
- ^self primTimezone!

Item was removed:
- ----- Method: Locale>>primCountry (in category 'system primitives') -----
- primCountry
- "Returns string with country tag according to ISO 639"
- <primitive: 'primitiveCountry' module: 'LocalePlugin'>
- ^'US'!

Item was removed:
- ----- Method: Locale>>primCurrencyNotation (in category 'system primitives') -----
- primCurrencyNotation
- "Returns boolean if symbol is pre- (true) or post-fix (false)"
- <primitive: 'primitiveCurrencyNotation' module: 'LocalePlugin'>
- ^true!

Item was removed:
- ----- Method: Locale>>primCurrencySymbol (in category 'system primitives') -----
- primCurrencySymbol
- "Returns string with currency symbol"
- <primitive: 'primitiveCurrencySymbol' module:'LocalePlugin'>
- ^'$'!

Item was removed:
- ----- Method: Locale>>primDST (in category 'system primitives') -----
- primDST
- "Returns boolean if DST  (daylight saving time) is active or not"
- <primitive:'primitiveDaylightSavings' module: 'LocalePlugin'>
- ^false!

Item was removed:
- ----- Method: Locale>>primDecimalSymbol (in category 'system primitives') -----
- primDecimalSymbol
- "Returns string with e.g. '.' or ','"
- <primitive:'primitiveDecimalSymbol' module: 'LocalePlugin'>
- ^'.'!

Item was removed:
- ----- Method: Locale>>primDigitGrouping (in category 'system primitives') -----
- primDigitGrouping
- "Returns string with e.g. '.' or ',' (thousands etc)"
- <primitive:'primitiveDigitGroupingSymbol' module: 'LocalePlugin'>
- ^','!

Item was removed:
- ----- Method: Locale>>primLanguage (in category 'system primitives') -----
- primLanguage
- "returns string with language tag according to ISO 639"
- <primitive:'primitiveLanguage' module: 'LocalePlugin'>
- ^'en'
-
- !

Item was removed:
- ----- Method: Locale>>primLongDateFormat (in category 'system primitives') -----
- primLongDateFormat
- "Returns the long date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveLongDateFormat' module: 'LocalePlugin'>
- ^'dddd, mmmm d, yyyy'!

Item was removed:
- ----- Method: Locale>>primMeasurement (in category 'system primitives') -----
- primMeasurement
- "Returns boolean denoting metric(true) or imperial(false)."
- <primitive:'primitiveMeasurementMetric' module: 'LocalePlugin'>
- ^true
- !

Item was removed:
- ----- Method: Locale>>primShortDateFormat (in category 'system primitives') -----
- primShortDateFormat
- "Returns the short date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveShortDateFormat' module: 'LocalePlugin'>
- ^'m/d/yy'!

Item was removed:
- ----- Method: Locale>>primTimeFormat (in category 'system primitives') -----
- primTimeFormat
- "Returns string time format
- Format is made up of
- h hour (h 12, H 24), m minute, s seconds, x (am/pm String)
- double symbol is null padded, single not padded (h=6, hh=06)"
- <primitive:'primitiveTimeFormat' module: 'LocalePlugin'>
- ^'h:mmx'!

Item was removed:
- ----- Method: Locale>>primTimezone (in category 'system primitives') -----
- primTimezone
- "The offset from UTC in minutes, with positive offsets being towards the east.
- (San Francisco is in UTC -07*60 and Paris is in UTC +02*60 when daylight savings is in effect)."
- <primitive:'primitiveTimezoneOffset' module: 'LocalePlugin'>
- ^0!

Item was removed:
- ----- Method: Locale>>primVMOffsetToUTC (in category 'system primitives') -----
- primVMOffsetToUTC
- "Returns the offset in minutes between the VM and UTC.
- If the VM does not support UTC times, this is 0.
- Also gives us backward compatibility with old VMs as the primitive will fail and we then can return 0."
- <primitive:'primitiveVMOffsetToUTC' module: 'LocalePlugin'>
- ^0!

Item was removed:
- ----- Method: Locale>>printOn: (in category 'accessing') -----
- printOn: aStream
- super printOn: aStream.
- aStream nextPutAll: '(' , id printString , ')'!

Item was removed:
- Object subclass: #LocaleID
- instanceVariableNames: 'isoLanguage isoCountry'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Localization'!

Item was removed:
- ----- Method: LocaleID class>>current (in category 'accessing') -----
- current
- ^Locale current localeID!

Item was removed:
- ----- Method: LocaleID class>>isoLanguage: (in category 'instance creation') -----
- isoLanguage: langString
- ^self isoLanguage: langString isoCountry: nil!

Item was removed:
- ----- Method: LocaleID class>>isoLanguage:isoCountry: (in category 'instance creation') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- ^self new isoLanguage: langString isoCountry: countryStringOrNil!

Item was removed:
- ----- Method: LocaleID class>>isoString: (in category 'instance creation') -----
- isoString: isoString
- "Parse the isoString (<language>-<country>) into its components and return the matching LocaleID"
- "LocaleID isoString: 'en' "
- "LocaleID isoString: 'en-us' "
-
- | parts language country |
- parts := isoString findTokens: #($- ).
- language := parts first.
- parts size > 1
- ifTrue: [country := parts second].
- ^self isoLanguage: language isoCountry: country!

Item was removed:
- ----- Method: LocaleID>>= (in category 'comparing') -----
- = anotherObject
- self class == anotherObject class
- ifFalse: [^false].
- ^self isoLanguage = anotherObject isoLanguage
- and: [self isoCountry = anotherObject isoCountry]!

Item was removed:
- ----- Method: LocaleID>>displayCountry (in category 'accessing') -----
- displayCountry
- ^(ISOLanguageDefinition iso2Countries at: self isoCountry asUppercase ifAbsent: [ self isoCountry ]) !

Item was removed:
- ----- Method: LocaleID>>displayLanguage (in category 'accessing') -----
- displayLanguage
- | language |
- language := (ISOLanguageDefinition iso2LanguageDefinition: self isoLanguage) language.
- ^self isoCountry
- ifNil: [language]
- ifNotNil: [language , ' (' , self displayCountry , ')']!

Item was removed:
- ----- Method: LocaleID>>displayName (in category 'accessing') -----
- displayName
- "Answer a proper name to represent the receiver in GUI.
-
- The wording is provided by translations of the magic value
- '<language display name>'.
-
- 'English' -> 'English'  
- 'German' -> 'Deutsch'  
- "
- | magicPhrase translatedMagicPhrase |
- magicPhrase := '<language display name>'.
- translatedMagicPhrase := magicPhrase translatedTo: self.
- ^ translatedMagicPhrase = magicPhrase
- ifTrue: [self displayLanguage]
- ifFalse: [translatedMagicPhrase]!

Item was removed:
- ----- Method: LocaleID>>hasParent (in category 'testing') -----
- hasParent
- ^self isoCountry notNil!

Item was removed:
- ----- Method: LocaleID>>hash (in category 'comparing') -----
- hash
- ^self isoLanguage hash bitXor: self isoCountry hash!

Item was removed:
- ----- Method: LocaleID>>isoCountry (in category 'accessing') -----
- isoCountry
- ^isoCountry!

Item was removed:
- ----- Method: LocaleID>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^isoLanguage!

Item was removed:
- ----- Method: LocaleID>>isoLanguage:isoCountry: (in category 'initialize') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- isoLanguage := langString.
- isoCountry := countryStringOrNil!

Item was removed:
- ----- Method: LocaleID>>isoString (in category 'accessing') -----
- isoString
- ^self asString!

Item was removed:
- ----- Method: LocaleID>>parent (in category 'accessing') -----
- parent
- ^self class isoLanguage: self isoLanguage!

Item was removed:
- ----- Method: LocaleID>>printOn: (in category 'printing') -----
- printOn: stream
- "<language>-<country>"
- stream nextPutAll: self isoLanguage.
- self isoCountry
- ifNotNil: [stream nextPut: $-; nextPutAll: self isoCountry]!

Item was removed:
- ----- Method: LocaleID>>storeOn: (in category 'printing') -----
- storeOn: aStream
- aStream nextPut: $(.
- aStream nextPutAll: self class name.
- aStream nextPutAll: ' isoString: '.
- aStream nextPutAll: '''' , self printString , ''''.
- aStream nextPut: $).
- !

Item was removed:
- ----- Method: LocaleID>>translator (in category 'accessing') -----
- translator
- ^ NaturalLanguageTranslator localeID: self !

Item was removed:
- Object subclass: #NaturalLanguageFormTranslator
- instanceVariableNames: 'id generics'
- classVariableNames: 'CachedTranslations'
- poolDictionaries: ''
- category: 'System-Localization'!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>cachedTranslations (in category 'accessing') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>cleanUp (in category 'class initialization') -----
- cleanUp
- "Flush caches"
-
- CachedTranslations := nil!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- "Return the generic language translator as there is no information about the country code"
-
- ^self isoLanguage: isoLanguage isoCountry: nil!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID  isoLanguage: isoLanguage isoCountry: isoCountry)!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>loadFormsFrom: (in category 'i/o') -----
- loadFormsFrom: aStream
-
- | rr pair inst |
- rr := ReferenceStream on: aStream.
- pair := rr next.
- inst := self localeID: (LocaleID isoString: pair first).
- pair second associationsDo: [:assoc |
- inst name: assoc key form: assoc value.
- ].
- ^ inst.
- !

Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>localeID: (in category 'accessing') -----
- localeID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>generics (in category 'accessing') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>name:form: (in category 'accessing') -----
- name: formName form: translatedForm
- self generics at: formName put: translatedForm.
- !

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>saveFormsOn: (in category 'i/o') -----
- saveFormsOn: aStream
-
- | rr |
- rr := ReferenceStream on: aStream.
- rr nextPut: {id isoString. generics}.
- rr close.
- !

Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>translate: (in category 'utilities') -----
- translate: aString
-
- ^ (self generics
- at: aString ifAbsent: [nil]) deepCopy.
-
- "Do you like to write 'form ifNotNil: [form deepCopy]'?"
- !

Item was removed:
- Object subclass: #NaturalLanguageTranslator
- instanceVariableNames: 'id generics contexts'
- classVariableNames: 'AllKnownPhrases CachedTranslations'
- poolDictionaries: ''
- category: 'System-Localization'!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>allKnownPhrases (in category 'private') -----
- allKnownPhrases
- ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>availableLanguageLocaleIDs (in category 'accessing') -----
- availableLanguageLocaleIDs
- "Return the locale ids for the currently available languages.  
- Meaning those which either internally or externally have  
- translations available."
- "NaturalLanguageTranslator availableLanguageLocaleIDs"
- ^ CachedTranslations values collect:[:each | each localeID]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>cachedTranslations (in category 'private') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>cleanUp (in category 'class initialization') -----
- cleanUp
- "Flush caches"
-
- CachedTranslations := nil.
- AllKnownPhrases := nil.!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>cleanUpCache (in category 'private') -----
- cleanUpCache
- "NaturalLanguageTranslator cleanUpCache"
-
- self cachedTranslations keys do: [:key |
- key isoLanguage size > 2 ifTrue: [self cachedTranslations removeKey: key]]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>current (in category 'accessing') -----
- current
- ^ LocaleID current translator
-
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>default (in category 'accessing') -----
- default
- ^self localeID: (LocaleID default)
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>directoryForLanguage:country:create: (in category 'private loading') -----
- directoryForLanguage: isoLanguage country: isoCountry create: createDir
- "Try to locate the <prefs>/locale/<language>{/<country>} folder.
- If createDir is set, create the path down to country or language, depending on wether it's specified..
- Return the directory for country or language depending on specification.
- If neither exists, nil"
-
- "NaturalLanguageTranslator directoryForLanguage: 'es' country: nil create: true"
- "NaturalLanguageTranslator directoryForLanguage: 'de' country: 'DE' create: true"
- "NaturalLanguageTranslator directoryForLanguage: 'en' country: 'US' create: false"
- "NaturalLanguageTranslator directoryForLanguage: 'en' country: nil create: true"
-
- "If this fails, there is nothing we can do about it here"
- | localeDir  countryDir languageDir |
- localeDir := self localeDirCreate: createDir.
- localeDir ifNil: [^nil].
-
- isoCountry ifNil: [
- languageDir := localeDir directoryNamed: isoLanguage.
- createDir
- ifTrue: [languageDir assureExistence].
- ^languageDir exists
- ifTrue: [languageDir]
- ifFalse: [nil]].
-
- countryDir := languageDir directoryNamed: isoCountry.
- createDir
- ifTrue: [countryDir assureExistence].
-
- ^countryDir exists
- ifTrue: [countryDir]
- ifFalse: [nil]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>directoryForLocaleID:create: (in category 'private loading') -----
- directoryForLocaleID: localeID create: createDir
- "Try to locate the <prefs>/locale/<language>{/<country>} folder.
- If createDir is set, create the path down to country or language, depending on locale.
- Return the directory for country or language depending on locale.
- If neither exists, nil"
-
- "NaturalLanguageTranslator directoryForLanguage: 'de' country: nil readOnly: true"
- "NaturalLanguageTranslator directoryForLanguage: 'de' country: 'DE' readOnly: true"
- "NaturalLanguageTranslator directoryForLanguage: 'en' country: 'US' readOnly: false"
- "NaturalLanguageTranslator directoryForLanguage: 'en' country: nil readOnly: true"
-
- ^self directoryForLanguage: localeID isoLanguage country: localeID isoCountry create: createDir!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>fileReaderServicesForFile:suffix: (in category 'file-services') -----
- fileReaderServicesForFile: fullName suffix: suffix
- "Answer the file services associated with given file"
- ^ (suffix = self translationSuffix) | (suffix = '*')
- ifTrue: [{self serviceMergeLanguageTranslations}]
- ifFalse: [#()]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>initialize (in category 'class initialization') -----
- initialize
- "NaturalLanguageTranslator initialize"
-
- FileList registerFileReader: self.
- Smalltalk addToStartUpList: NaturalLanguageTranslator after: FileDirectory.
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- "Return the generic language translator as there is no information about the country code"
-
- ^self isoLanguage: isoLanguage isoCountry: nil!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID  isoLanguage: isoLanguage isoCountry: isoCountry)!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>loadAvailableExternalLocales (in category 'private loading') -----
- loadAvailableExternalLocales
- "private - register locales IDs based on the content of the <prefs>/locale/ directory"
- | localeDir |
- localeDir := self localeDirCreate: false.
- localeDir ifNil: [^ #()].
- localeDir directoryNames
- do: [:langDirName |
- | langDir |
- langDir := localeDir directoryNamed: langDirName.
- (langDir fileNamesMatching: '*.' , self translationSuffix)
- ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: nil].
- langDir directoryNames
- do: [:countryDirName |
- | countryDir |
- countryDir := langDir directoryNamed: countryDirName.
- (countryDir fileNamesMatching: '*.' , self translationSuffix)
- ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName]
- ]
- ].
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>loadAvailableLocales (in category 'private loading') -----
- loadAvailableLocales
- "This loads the default locale and all external locales"
-
- | defaultID |
- defaultID := LocaleID current.
- self cachedTranslations at: defaultID ifAbsent: [self localeID: defaultID].
- self loadAvailableExternalLocales.!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>loadExternalTranslationsFor: (in category 'private loading') -----
- loadExternalTranslationsFor: translator
- "Try to load translations from external external files.
- The files are located in the <prefs>/locale/<language>{/<country>} folder.
- There can be more than one file for each location, so applications can install their own partial translation tables. All files in the specific folder are loaded."
-
- | translationDir |
- translationDir := self directoryForLocaleID: translator localeID create: false.
- translationDir ifNil: [ ^nil ].
- (translationDir fileNamesMatching: '*.' , self translationSuffix)
- do: [:fileName | translator loadFromFileNamed: (translationDir fullNameFor: fileName)]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
- loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString
- "merge the translation from the mime literal."
- | stream localeID translator gs rbStream s currentPlatform |
- s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
- s reset.
- gs := GZipReadStream on: s.
- rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
- rbStream converter: UTF8TextConverter new.
- rbStream reset.
- localeID := LocaleID isoString: localeString.
- currentPlatform := Locale currentPlatform.
- [Locale
- currentPlatform: (Locale localeID: localeID).
- stream := ReadStream on: rbStream contents]
- ensure: [Locale currentPlatform: currentPlatform].
- translator := self localeID: localeID.
- translator loadFromStream: stream.
- LanguageEnvironment resetKnownEnvironments!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>loadTranslatorForIsoLanguage:isoCountry: (in category 'private loading') -----
- loadTranslatorForIsoLanguage: isoLanguage isoCountry: isoCountry
- "private - load the translations from <prefs>/locale/ directory  
- the procedure is to assure the existence of a translator for the  
- given language/country and then load the external translations for this translator"
-
- | translator |
- translator := self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry).
-
- self loadExternalTranslationsFor: translator!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>localeDirCreate: (in category 'private loading') -----
- localeDirCreate: createDir
- "Try to locate the <prefs>/locale/ folder.
- If createDir is set, try to create the path.
- If it doesn't exist, return nil"
-
- "If this fails, there is nothing we can do about it here"
- | prefDir  localeDir |
- (createDir not
- and: [ExternalSettings preferenceDirectory isNil])
- ifTrue: [^ nil].
-
- prefDir := ExternalSettings assuredPreferenceDirectory.
- prefDir exists
- ifFalse: [^nil].
-
-
- localeDir := prefDir directoryNamed: 'locale'.
- createDir
- ifTrue: [localeDir assureExistence].
- ^localeDir exists
- ifTrue: [localeDir]
- ifFalse: [nil]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>localeID: (in category 'accessing') -----
- localeID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>mergeTranslationFileNamed: (in category 'file-services') -----
- mergeTranslationFileNamed: fileFullNameString
- "merge the translation in the file named fileFullNameString"
-
- FileStream readOnlyFileNamed: fileFullNameString do: [:stream |
- | localeID translator |
- localeID := LocaleID isoString: stream localName sansPeriodSuffix.
- translator := self localeID: localeID.
- translator loadFromStream: stream].
- LanguageEnvironment resetKnownEnvironments.
-
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>registerPhrase: (in category 'private') -----
- registerPhrase: phrase
- "Using a Dictionary so we can lookup existing string instead of creating needless copies when loading a translation."
- self allKnownPhrases at: phrase put: phrase!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>registeredPhraseFor: (in category 'private') -----
- registeredPhraseFor: phrase
- "Using a Dictionary so we can lookup existing string instead of creating needless copies when loading a translation."
- ^self allKnownPhrases at: phrase ifAbsentPut: [phrase]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>resetCaches (in category 'class initialization') -----
- resetCaches
- "NaturalLanguageTranslator resetCaches"
-
- CachedTranslations := nil.
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>serviceMergeLanguageTranslations (in category 'file-services') -----
- serviceMergeLanguageTranslations
- "Answer a service for merging of translation files"
- ^ SimpleServiceEntry
- provider: self
- label: 'merge the translation file'
- selector: #mergeTranslationFileNamed:
- description: 'merge the translation file into the language named like the file'
- buttonLabel: 'merge'!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>services (in category 'file-services') -----
- services
- "Answer potential file services associated with this class"
- ^ {self serviceMergeLanguageTranslations}!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>startUp: (in category 'class initialization') -----
- startUp: resuming
-
- resuming ifTrue: [ self loadAvailableLocales ]!

Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translationSuffix (in category 'private') -----
- translationSuffix
- ^'translation'!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>checkPhrase:translation: (in category 'translation') -----
- checkPhrase: phrase translation: translation!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>defaultBackgroundColor (in category 'user interface') -----
- defaultBackgroundColor
- "answer the receiver's defaultBackgroundColor for views"
- ^ Color cyan!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>displayLanguage (in category 'accessing') -----
- displayLanguage
- ^ id displayLanguage!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>displayName (in category 'accessing') -----
- displayName
- ^ id displayName!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>fileOutHeader (in category 'fileIn/fileOut') -----
- fileOutHeader
- ^ '''Translation dictionary'''!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>fileOutHeaderOn: (in category 'fileIn/fileOut') -----
- fileOutHeaderOn: aStream
- aStream nextChunkPut: self fileOutHeader;
- cr.
- aStream timeStamp; cr.
- aStream nextPut: $!!.
- aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
- aStream cr!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>fileOutOn: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream
- "self current fileOutOn: Transcript. Transcript endEntry"
- self fileOutHeaderOn: aStream.
- self fileOutOn: aStream keys: nil!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>fileOutOn:keys: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream keys: keys
- "self current fileOutOn: Transcript. Transcript endEntry"
- (keys
- ifNil: [generics keys asArray sort])
- do: [:key | self
- nextChunkPut: (generics associationAt: key)
- on: aStream].
- keys
- ifNil: [self untranslated
- do: [:each | self nextChunkPut: each -> '' on: aStream]].
- aStream nextPut: $!!;
- cr!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>generics (in category 'private') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>isoCountry (in category 'accessing') -----
- isoCountry
- ^self localeID isoCountry!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^self localeID isoLanguage!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>loadFromFileNamed: (in category 'private store-retrieve') -----
- loadFromFileNamed: fileNameString
- "Load translations from an external file"
-
- FileStream readOnlyFileNamed: fileNameString do: [ :file |
- self loadFromStream: file ].
- self changed: #translations.
- self changed: #untranslated.
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator>>loadFromRefStream: (in category 'private store-retrieve') -----
- loadFromRefStream: stream
- "Load translations from an external file"
- | loadedArray refStream |
- refStream := ReferenceStream on: stream.
- [loadedArray := refStream next]
- ensure: [refStream close].
- self processExternalObject: loadedArray !

Item was removed:
- ----- Method: NaturalLanguageTranslator>>loadFromStream: (in category 'private store-retrieve') -----
- loadFromStream: stream
- "Load translations from an external file"
- | header isFileIn |
- header := '''Translation dictionary'''.
- isFileIn := (stream next: header size)
- = header.
- stream reset.
- isFileIn
- ifTrue: [stream fileInAnnouncing: 'Loading ' translated, stream localName]
- ifFalse: [self loadFromRefStream: stream]!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID: (in category 'initialize-release') -----
- localeID: anID
- id := anID!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>mergeTranslations: (in category 'private store-retrieve') -----
- mergeTranslations: newTranslations
- "Merge a new set of translations into the exiting table.
- Overwrites existing entries."
-
- newTranslations keysAndValuesDo: [:key :value |
- self rawPhrase: (self class registeredPhraseFor: key) translation: value].
- self changed: #translations.
- self changed: #untranslated.!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>nextChunkPut:on: (in category 'fileIn/fileOut') -----
- nextChunkPut: anObject on: aStream
- | i remainder terminator |
- terminator := $!!.
- remainder := anObject storeString.
- [(i := remainder indexOf: terminator) = 0]
- whileFalse: [aStream
- nextPutAll: (remainder copyFrom: 1 to: i).
- aStream nextPut: terminator.
- "double imbedded terminators"
- remainder := remainder copyFrom: i + 1 to: remainder size].
- aStream nextPutAll: remainder.
- aStream nextPut: terminator; cr.!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>phrase:translation: (in category 'translation') -----
- phrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- self changed: #translations.
- self changed: #untranslated.!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>printOn: (in category 'printing') -----
- printOn: aStream
- aStream nextPutAll: self class name; nextPut: $(; print: self localeID; nextPut: $)!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>processExternalObject: (in category 'private store-retrieve') -----
- processExternalObject: anArray
- "pivate - process the external object"
-
- "new format -> {translations. untranslated}"
-
- anArray second do: [:each | self class registerPhrase: each].
-
- self mergeTranslations: anArray first!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>rawPhrase:translation: (in category 'translation') -----
- rawPhrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator>>rawRemoveUntranslated: (in category 'translation') -----
- rawRemoveUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- self changed: #untranslated.!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>removeTranslationFor: (in category 'translation') -----
- removeTranslationFor: phraseString
- self generics removeKey: phraseString ifAbsent: [].
- self changed: #translations.
- self changed: #untranslated.!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>removeUntranslated: (in category 'translation') -----
- removeUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- !

Item was removed:
- ----- Method: NaturalLanguageTranslator>>saveToFileNamed: (in category 'private store-retrieve') -----
- saveToFileNamed: fileNameString
- "save the receiver's translations to a file named fileNameString"
- | stream |
- "Set true if you need to save as binary"
- false
- ifTrue: [stream := ReferenceStream fileNamed: fileNameString.
- stream nextPut: {self translations. self untranslated}.
- stream close.
- ^ self].
- stream := FileStream fileNamed: fileNameString.
- [self fileOutOn: stream]
- ensure: [stream close]!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
- scanFrom: aStream
- "Read a definition of dictionary.  
- Make sure current locale corresponds my locale id"
- | newTranslations currentPlatform |
- newTranslations := Dictionary new.
- currentPlatform := Locale currentPlatform.
- [ | aString assoc |
- Locale
- currentPlatform: (Locale localeID: id).
- [aString := aStream nextChunk withSqueakLineEndings.
- aString size > 0]
- whileTrue: [assoc := Compiler evaluate: aString.
- assoc value = ''
- ifTrue: [self class registerPhrase: assoc key]
- ifFalse: [newTranslations add: assoc]]]
- ensure: [Locale currentPlatform: currentPlatform].
- self mergeTranslations: newTranslations!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate: (in category 'translation') -----
- translate: aString
- ^self generics
- at: aString
- ifAbsent: [self class registeredPhraseFor: aString.
- self changed: #untranslated.
- self localeID hasParent
- ifTrue: [(self class localeID: self localeID parent) translate: aString]
- ifFalse: [aString]]!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate:in: (in category 'translation') -----
- translate: aString in: aContext!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>translationFor: (in category 'translation') -----
- translationFor: aString
- ^self translate: aString!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>translations (in category 'accessing') -----
- translations
- ^self generics!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>untranslated (in category 'accessing') -----
- untranslated
- | translations |
- translations := self translations.
- ^self class allKnownPhrases reject: [:each | translations includesKey: each]!

Item was removed:
- ----- Method: NaturalLanguageTranslator>>writeAsMimeString (in category 'fileIn/fileOut') -----
- writeAsMimeString
-
- | fileName fileStream tmpStream s2 gzs |
- tmpStream := MultiByteBinaryOrTextStream on: ''.
- tmpStream converter: UTF8TextConverter new.
- self fileOutOn: tmpStream.
- s2 := RWBinaryOrTextStream on: ''.
- gzs := GZipWriteStream on: s2.
- tmpStream reset.
- gzs nextPutAll: (tmpStream binary contentsOfEntireFile asString) contents.
- gzs close.
- s2 reset.
-
- fileName := id isoString, '.translation.gz.mime'.
- fileStream := FileStream newFileNamed: fileName.
- fileStream nextPutAll: (Base64MimeConverter mimeEncode: s2) contents.
- fileStream close.
- !

Item was removed:
- ----- Method: Preferences class>>useLocale (in category 'standard queries') -----
- useLocale
- ^ self
- valueOfFlag: #useLocale
- ifAbsent: [false]!