From 91259b64fcb3ce5fd47fe01d12a7995a62115b38 Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Fri, 25 Apr 2025 15:24:34 +0200 Subject: [PATCH 1/8] Removed System-Localization package --- .../ISOLanguageDefinitionTest.class.st | 26 - .../LocaleChangedTest.class.st | 30 - .../LocaleIDTest.class.st | 92 - .../LocaleTest.class.st | 16 - .../NaturalLanguageTranslatorTest.class.st | 42 - .../RegisterableTranslatorMock.class.st | 34 - src/System-Localization-Tests/package.st | 1 - .../ISOLanguageDefinition.class.st | 2559 ----------------- src/System-Localization/Locale.class.st | 394 --- .../LocaleChanged.class.st | 43 - src/System-Localization/LocaleID.class.st | 145 - .../ManifestSystemLocalization.class.st | 15 - .../NaturalLanguageTranslator.class.st | 55 - src/System-Localization/String.extension.st | 13 - src/System-Localization/package.st | 1 - 15 files changed, 3466 deletions(-) delete mode 100644 src/System-Localization-Tests/ISOLanguageDefinitionTest.class.st delete mode 100644 src/System-Localization-Tests/LocaleChangedTest.class.st delete mode 100644 src/System-Localization-Tests/LocaleIDTest.class.st delete mode 100644 src/System-Localization-Tests/LocaleTest.class.st delete mode 100644 src/System-Localization-Tests/NaturalLanguageTranslatorTest.class.st delete mode 100644 src/System-Localization-Tests/RegisterableTranslatorMock.class.st delete mode 100644 src/System-Localization-Tests/package.st delete mode 100644 src/System-Localization/ISOLanguageDefinition.class.st delete mode 100644 src/System-Localization/Locale.class.st delete mode 100644 src/System-Localization/LocaleChanged.class.st delete mode 100644 src/System-Localization/LocaleID.class.st delete mode 100644 src/System-Localization/ManifestSystemLocalization.class.st delete mode 100644 src/System-Localization/NaturalLanguageTranslator.class.st delete mode 100644 src/System-Localization/String.extension.st delete mode 100644 src/System-Localization/package.st diff --git a/src/System-Localization-Tests/ISOLanguageDefinitionTest.class.st b/src/System-Localization-Tests/ISOLanguageDefinitionTest.class.st deleted file mode 100644 index 825475268e8..00000000000 --- a/src/System-Localization-Tests/ISOLanguageDefinitionTest.class.st +++ /dev/null @@ -1,26 +0,0 @@ -" -Unit tests on ISO language definitions -" -Class { - #name : 'ISOLanguageDefinitionTest', - #superclass : 'TestCase', - #category : 'System-Localization-Tests-Utilities', - #package : 'System-Localization-Tests', - #tag : 'Utilities' -} - -{ #category : 'tests' } -ISOLanguageDefinitionTest >> testISO2LanguageDefinition [ - - self - assert: (ISOLanguageDefinition iso2LanguageDefinition: 'de') language equals: 'German'; - assert: (ISOLanguageDefinition iso2LanguageDefinition: 'fr') language equals: 'French' -] - -{ #category : 'tests' } -ISOLanguageDefinitionTest >> testISO3LanguageDefinition [ - - self - assert: (ISOLanguageDefinition iso3LanguageDefinition: 'deu') language equals: 'German'; - assert: (ISOLanguageDefinition iso3LanguageDefinition: 'fra') language equals: 'French' -] diff --git a/src/System-Localization-Tests/LocaleChangedTest.class.st b/src/System-Localization-Tests/LocaleChangedTest.class.st deleted file mode 100644 index ab40260d24b..00000000000 --- a/src/System-Localization-Tests/LocaleChangedTest.class.st +++ /dev/null @@ -1,30 +0,0 @@ -" -Unit tests for LocaleChanged announcement -" -Class { - #name : 'LocaleChangedTest', - #superclass : 'TestCase', - #category : 'System-Localization-Tests-Locales', - #package : 'System-Localization-Tests', - #tag : 'Locales' -} - -{ #category : 'private - accessing' } -LocaleChangedTest >> englishLocale [ - ^ Locale isoLanguage: 'en' -] - -{ #category : 'private - accessing' } -LocaleChangedTest >> germanLocale [ - ^ Locale isoLanguage: 'de' -] - -{ #category : 'tests' } -LocaleChangedTest >> testInstanceCreation [ - | instance | - instance := LocaleChanged from: self englishLocale to: self germanLocale. - - self - assert: instance oldLocale equals: self englishLocale; - assert: instance newLocale equals: self germanLocale -] diff --git a/src/System-Localization-Tests/LocaleIDTest.class.st b/src/System-Localization-Tests/LocaleIDTest.class.st deleted file mode 100644 index e64b456b3ed..00000000000 --- a/src/System-Localization-Tests/LocaleIDTest.class.st +++ /dev/null @@ -1,92 +0,0 @@ -" -A unit test class for class LocaleID -" -Class { - #name : 'LocaleIDTest', - #superclass : 'TestCase', - #category : 'System-Localization-Tests-Locales', - #package : 'System-Localization-Tests', - #tag : 'Locales' -} - -{ #category : 'tests - test data' } -LocaleIDTest >> frenchLocaleID [ - - ^LocaleID isoLanguage: 'fr' -] - -{ #category : 'tests - test data' } -LocaleIDTest >> germanLocaleID [ - - ^LocaleID isoLanguage: 'de' -] - -{ #category : 'tests' } -LocaleIDTest >> testComparision [ - - self deny: self germanLocaleID equals: self frenchLocaleID. - self assert: self germanLocaleID equals: self germanLocaleID -] - -{ #category : 'tests' } -LocaleIDTest >> testFromISOString [ - - | locale | - locale := LocaleID isoString: 'en-us'. - self - assert: locale isoLanguage equals: 'en'; - assert: locale isoCountry equals: 'us' -] - -{ #category : 'tests' } -LocaleIDTest >> testFromSingleISOString [ - - | locale | - locale := LocaleID isoString: 'en'. - self - assert: locale isoLanguage equals: 'en'; - assert: locale isoCountry isNil -] - -{ #category : 'tests' } -LocaleIDTest >> testHashing [ - - self assert: self germanLocaleID hash equals: self germanLocaleID hash. - self assert: self frenchLocaleID hash equals: self frenchLocaleID hash -] - -{ #category : 'tests' } -LocaleIDTest >> testInstanceCreationWithISOLanguage [ - - |germanLocale| - germanLocale := LocaleID isoLanguage: 'de'. - self assert: germanLocale isoLanguage equals: 'de' -] - -{ #category : 'tests' } -LocaleIDTest >> testInstanceCreationWithISOLanguageAndCountry [ - - |locale| - locale := LocaleID isoLanguage: 'zh' isoCountry: 'CN'. - self - assert: locale isoLanguage equals: 'zh'; - assert: locale isoCountry equals: 'CN' -] - -{ #category : 'tests' } -LocaleIDTest >> testPosixNameConversion [ - - | locale | - locale := LocaleID posixName: 'en_us'. - self - assert: locale isoLanguage equals: 'en'; - assert: locale isoCountry equals: 'us' -] - -{ #category : 'tests' } -LocaleIDTest >> testPrintString [ - - | locale | - locale := LocaleID isoString: 'en-us'. - self assert: locale printString equals: 'en-us' -] diff --git a/src/System-Localization-Tests/LocaleTest.class.st b/src/System-Localization-Tests/LocaleTest.class.st deleted file mode 100644 index 8a4db992a13..00000000000 --- a/src/System-Localization-Tests/LocaleTest.class.st +++ /dev/null @@ -1,16 +0,0 @@ -" -A unit test class for class Locale -" -Class { - #name : 'LocaleTest', - #superclass : 'TestCase', - #category : 'System-Localization-Tests-Locales', - #package : 'System-Localization-Tests', - #tag : 'Locales' -} - -{ #category : 'tests' } -LocaleTest >> testCurrent [ - - self assert: Locale current isNotNil -] diff --git a/src/System-Localization-Tests/NaturalLanguageTranslatorTest.class.st b/src/System-Localization-Tests/NaturalLanguageTranslatorTest.class.st deleted file mode 100644 index c90a8e9a394..00000000000 --- a/src/System-Localization-Tests/NaturalLanguageTranslatorTest.class.st +++ /dev/null @@ -1,42 +0,0 @@ -" -Tests for NaturalLanguageTranslator -" -Class { - #name : 'NaturalLanguageTranslatorTest', - #superclass : 'TestCase', - #instVars : [ - 'previousRegistered' - ], - #category : 'System-Localization-Tests-Translations', - #package : 'System-Localization-Tests', - #tag : 'Translations' -} - -{ #category : 'running' } -NaturalLanguageTranslatorTest >> setUp [ - - super setUp. - previousRegistered := NaturalLanguageTranslator current -] - -{ #category : 'running' } -NaturalLanguageTranslatorTest >> tearDown [ - - NaturalLanguageTranslator current: previousRegistered. - super tearDown -] - -{ #category : 'tests' } -NaturalLanguageTranslatorTest >> testRegisterCustomTranslator [ - - NaturalLanguageTranslator current: RegisterableTranslatorMock new. - - "Our custom translator translates the string differently" - self assert: 'TestCase' translated equals: 'Testfall' -] - -{ #category : 'tests' } -NaturalLanguageTranslatorTest >> testTranslatePureString [ - - self assert: 'Pharo' translated equals: 'Pharo' -] diff --git a/src/System-Localization-Tests/RegisterableTranslatorMock.class.st b/src/System-Localization-Tests/RegisterableTranslatorMock.class.st deleted file mode 100644 index cb7fffd3143..00000000000 --- a/src/System-Localization-Tests/RegisterableTranslatorMock.class.st +++ /dev/null @@ -1,34 +0,0 @@ -" -I'm a mock object to mock a translator -" -Class { - #name : 'RegisterableTranslatorMock', - #superclass : 'Object', - #instVars : [ - 'translations' - ], - #category : 'System-Localization-Tests-Mocks', - #package : 'System-Localization-Tests', - #tag : 'Mocks' -} - -{ #category : 'initialization' } -RegisterableTranslatorMock >> initialize [ - "Initializes the receiver" - - super initialize. - translations := Dictionary new. - translations at: #'TestCase' put: 'Testfall' -] - -{ #category : 'translate' } -RegisterableTranslatorMock >> translate: aString [ - "Dispatch to a registered translator to translate the given string or (if there is no translator) return the untranslated string." - ^translations at: aString asSymbol ifAbsent: [ aString ] -] - -{ #category : 'translate' } -RegisterableTranslatorMock >> translate: aString toLocale: localeID [ - - ^self translate: aString -] diff --git a/src/System-Localization-Tests/package.st b/src/System-Localization-Tests/package.st deleted file mode 100644 index 42d5233fa61..00000000000 --- a/src/System-Localization-Tests/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'System-Localization-Tests' } diff --git a/src/System-Localization/ISOLanguageDefinition.class.st b/src/System-Localization/ISOLanguageDefinition.class.st deleted file mode 100644 index a8c511dc7c6..00000000000 --- a/src/System-Localization/ISOLanguageDefinition.class.st +++ /dev/null @@ -1,2559 +0,0 @@ -" -The language definitions from International Organization for Standardization. - -You can obtain the list of the all the ISOCountries and languages. -" -Class { - #name : 'ISOLanguageDefinition', - #superclass : 'Object', - #instVars : [ - 'iso3', - 'iso2', - 'iso3Alternate', - 'language' - ], - #classVars : [ - 'ISO2Countries', - 'ISO2Table', - 'ISO3Countries', - 'ISO3Table' - ], - #category : 'System-Localization-Utilities', - #package : 'System-Localization', - #tag : 'Utilities' -} - -{ #category : 'private - ISO 3166' } -ISOLanguageDefinition class >> 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 -] - -{ #category : 'private - ISO 3166' } -ISOLanguageDefinition class >> initISO3LanguageTable [ - "self initISO3LanguageTable" - - ^ self readISOLanguagesFrom: self isoLanguages readStream -] - -{ #category : 'private' } -ISOLanguageDefinition class >> initISOCountries [ - "self initISOCountries" - | iso3166Table | - iso3166Table := self 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)] -] - -{ #category : 'class initialization' } -ISOLanguageDefinition class >> initialize [ - - ISO3Table := nil. - ISO2Table := nil -] - -{ #category : 'private - ISO 2' } -ISOLanguageDefinition class >> iso2Countries [ - "self iso2Countries" - "ISO2Countries := nil. ISO3Countries := nil" - - ISO2Countries ifNil: [self initISOCountries]. - ^ISO2Countries -] - -{ #category : 'accessing' } -ISOLanguageDefinition class >> iso2LanguageDefinition: aString [ - ^self iso2LanguageTable at: aString -] - -{ #category : 'private - ISO 2' } -ISOLanguageDefinition class >> iso2LanguageTable [ - "self iso2LanguageTable" - - ISO2Table ifNotNil: [^ISO2Table]. - ISO2Table := Dictionary new: self iso3LanguageTable basicSize. - self iso3LanguageTable do: [:entry | - ISO2Table at: entry iso2 put: entry]. - ^ISO2Table -] - -{ #category : 'private - ISO 3166' } -ISOLanguageDefinition class >> 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 -  -  -' -] - -{ #category : 'private - ISO 3' } -ISOLanguageDefinition class >> iso3Countries [ - "self iso3Countries" - "ISO2Countries := nil. ISO3Countries := nil" - - ISO3Countries ifNil: [self initISOCountries]. - ^ISO3Countries -] - -{ #category : 'accessing' } -ISOLanguageDefinition class >> iso3LanguageDefinition: aString [ - ^self iso3LanguageTable at: aString -] - -{ #category : 'private - ISO 3' } -ISOLanguageDefinition class >> iso3LanguageTable [ - "self iso3LanguageTable" - - ^ISO3Table ifNil: [ISO3Table := self initISO3LanguageTable] -] - -{ #category : 'private' } -ISOLanguageDefinition class >> 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' -] - -{ #category : 'private' } -ISOLanguageDefinition class >> readISOLanguagesFrom: stream [ - "self readISOLanguagesFrom: self isoLanguages readStream " - | languages language code3 index line | - languages := Dictionary new. - [stream atEnd - or: [(line := stream nextLine readStream) atEnd]] - whileFalse: [ - language := self 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 -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso2 [ - ^iso2 ifNil: [self iso3] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso2: aString [ - iso2 := aString ifEmpty: [nil] ifNotEmpty: [aString] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso3 [ - ^iso3 ifNil: [''] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso3: aString [ - iso3 := aString ifEmpty: [nil] ifNotEmpty: [aString] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso3Alternate [ - ^iso3Alternate ifNil: [''] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> iso3Alternate: aString [ - iso3Alternate := aString ifEmpty: [nil] ifNotEmpty: [aString] -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> language [ - ^ language -] - -{ #category : 'accessing' } -ISOLanguageDefinition >> language: aString [ - language := aString -] diff --git a/src/System-Localization/Locale.class.st b/src/System-Localization/Locale.class.st deleted file mode 100644 index 7ab6dec2251..00000000000 --- a/src/System-Localization/Locale.class.st +++ /dev/null @@ -1,394 +0,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/ - -" -Class { - #name : 'Locale', - #superclass : 'Object', - #instVars : [ - 'id' - ], - #classVars : [ - 'Activated', - 'Current', - 'KnownLocales', - 'LanguageSymbols', - 'PlatformEncodings' - ], - #classInstVars : [ - 'localeAnnouncer' - ], - #category : 'System-Localization-Locales', - #package : 'System-Localization', - #tag : 'Locales' -} - -{ #category : 'settings' } -Locale class >> activated [ - ^ Activated ifNil: [Activated := false] -] - -{ #category : 'settings' } -Locale class >> activated: aBoolean [ - Activated := aBoolean -] - -{ #category : 'accessing' } -Locale class >> current [ - - ^ Current ifNil: [ Current := self determineCurrentLocale ] -] - -{ #category : 'accessing' } -Locale class >> currentPlatform: locale during: aBlock [ - "Alter current locale during a block" - | savedLocale | - savedLocale := self current. - [self switchTo: locale. - aBlock value] - ensure: [self switchTo: savedLocale] -] - -{ #category : 'platform specific' } -Locale class >> defaultEncodingName: languageSymbol [ - | encodings platformName osVersion | - platformName := Smalltalk os platformName. - osVersion := Smalltalk os version. - 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 -] - -{ #category : 'private' } -Locale class >> defaultLocales [ - - "return IDs of default locales" - - ^ #(de en ja 'ja-kids' nl no sv) -] - -{ #category : 'private' } -Locale class >> 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 -] - -{ #category : 'private' } -Locale class >> initKnownLocales [ - | locales | - locales := Dictionary new. - - "Init the locales for which we have translations" - self defaultLocales do: [:id | - locales at: id put: (self new localeID: id)]. - ^locales -] - -{ #category : 'class initialization' } -Locale class >> initialize [ - - SessionManager default - registerSystemClassNamed: self name -] - -{ #category : 'initialization' } -Locale class >> 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' -] - -{ #category : 'accessing' } -Locale class >> isoLanguage: isoLanguage [ - ^self isoLanguage: isoLanguage isoCountry: nil -] - -{ #category : 'accessing' } -Locale class >> isoLanguage: isoLanguage isoCountry: isoCountry [ - ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry) -] - -{ #category : 'private' } -Locale class >> knownLocales [ - "KnownLocales := nil" - ^KnownLocales ifNil: [KnownLocales := self initKnownLocales] -] - -{ #category : 'accessing' } -Locale class >> languageSymbol: languageSymbol [ - "Locale languageSymbol: #Deutsch" - - ^self isoLanguage: (LanguageSymbols at: languageSymbol) -] - -{ #category : 'system startup' } -Locale class >> localTimeZone [ - ^ LocalTimeZone new -] - -{ #category : 'announcing' } -Locale class >> localeAnnouncer [ - ^localeAnnouncer ifNil: [ localeAnnouncer := Announcer new ] -] - -{ #category : 'accessing' } -Locale class >> localeID: id [ - ^self knownLocales at: id ifAbsentPut: [Locale new localeID: id] -] - -{ #category : 'accessing' } -Locale class >> platformEncodings [ - PlatformEncodings isEmptyOrNil ifTrue: [ self initializePlatformEncodings ]. - ^PlatformEncodings -] - -{ #category : 'system startup' } -Locale class >> startUp: resuming [ - | newID | - resuming ifFalse: [^self]. - DateAndTime localTimeZone: self localTimeZone. - (self activated) - ifTrue: [ - newID := self current determineLocaleID. - newID ~= LocaleID current - ifTrue: [self switchToID: newID]] -] - -{ #category : 'accessing' } -Locale class >> stringForLanguageNameIs: localeID [ - "Answer a string for a menu determining whether the given - symbol is the project's natural language" - ^ (self current localeID = localeID - ifTrue: [''] - ifFalse: ['']) - , localeID displayLanguage -] - -{ #category : 'accessing' } -Locale class >> switchTo: locale [ - - | announcement | - Current localeID = locale localeID ifTrue: [ ^ self ]. - announcement := LocaleChanged from: Current to: locale. - Current := locale. - self localeAnnouncer announce: announcement -] - -{ #category : 'accessing' } -Locale class >> switchToID: localeID [ - "Locale switchToID: (LocaleID isoLanguage: 'de') " - - self switchTo: (Locale localeID: localeID) -] - -{ #category : 'accessing' } -Locale >> determineLocale [ - self localeID: self determineLocaleID -] - -{ #category : 'accessing' } -Locale >> determineLocaleID [ - "Locale current determineLocaleID" - | langCode isoLang countryCode isoCountry | - langCode := self fetchISO2Language. - isoLang := langCode - ifNil: [^self localeID] - ifNotNil: [langCode]. - countryCode := self primCountry copyUpTo: 0 asCharacter. - isoCountry := countryCode - ifNil: [^LocaleID isoLanguage: isoLang] - ifNotNil: [countryCode]. - ^LocaleID isoLanguage: isoLang isoCountry: isoCountry -] - -{ #category : 'private' } -Locale >> 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 ifNotNil: [ isoLang iso2 ] -] - -{ #category : 'accessing' } -Locale >> isoCountry [ - ^self localeID isoCountry -] - -{ #category : 'accessing' } -Locale >> isoLanguage [ - ^self localeID isoLanguage -] - -{ #category : 'accessing' } -Locale >> isoLocale [ - "-" - ^self isoCountry - ifNil: [self isoLanguage] - ifNotNil: [self isoLanguage , '-' , self isoCountry] -] - -{ #category : 'accessing' } -Locale >> localeID [ - ^id -] - -{ #category : 'accessing' } -Locale >> localeID: anID [ - id := anID -] - -{ #category : 'system primitives' } -Locale >> primCountry [ - "Returns string with country tag according to ISO 639" - - ^'FR' -] - -{ #category : 'system primitives' } -Locale >> primCurrencyNotation [ - "Returns boolean if symbol is pre- (true) or post-fix (false)" - - ^true -] - -{ #category : 'system primitives' } -Locale >> primCurrencySymbol [ - "Returns string with currency symbol" - - ^'$' -] - -{ #category : 'system primitives' } -Locale >> primDST [ - "Returns boolean if DST (daylight saving time) is active or not" - - ^false -] - -{ #category : 'system primitives' } -Locale >> primDecimalSymbol [ - "Returns string with e.g. '.' or ','" - - ^'.' -] - -{ #category : 'system primitives' } -Locale >> primDigitGrouping [ - "Returns string with e.g. '.' or ',' (thousands etc)" - - ^',' -] - -{ #category : 'system primitives' } -Locale >> primLanguage [ - "returns string with language tag according to ISO 639" - - ^'en' -] - -{ #category : 'system primitives' } -Locale >> 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" - - ^'dddd, mmmm d, yyyy' -] - -{ #category : 'system primitives' } -Locale >> primMeasurement [ - "Returns boolean denoting metric(true) or imperial(false)." - - ^true -] - -{ #category : 'system primitives' } -Locale >> 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" - - ^'m/d/yy' -] - -{ #category : 'system primitives' } -Locale >> 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)" - - ^'h:mmx' -] - -{ #category : 'system primitives' } -Locale >> 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 (daylight savings is not in effect)." - - ^0 -] - -{ #category : 'system primitives' } -Locale >> 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." - - ^0 -] - -{ #category : 'printing' } -Locale >> printOn: aStream [ - super printOn: aStream. - aStream nextPutAll: '(' ; print: id ; nextPutAll: ')' -] diff --git a/src/System-Localization/LocaleChanged.class.st b/src/System-Localization/LocaleChanged.class.st deleted file mode 100644 index 419b1549199..00000000000 --- a/src/System-Localization/LocaleChanged.class.st +++ /dev/null @@ -1,43 +0,0 @@ -" -Announce that a locale was changed -" -Class { - #name : 'LocaleChanged', - #superclass : 'Announcement', - #instVars : [ - 'newLocale', - 'oldLocale' - ], - #category : 'System-Localization-Announcements', - #package : 'System-Localization', - #tag : 'Announcements' -} - -{ #category : 'instance creation' } -LocaleChanged class >> from: oldLocale to: newLocale [ - - ^(self new) - oldLocale: oldLocale; - newLocale: newLocale; - yourself -] - -{ #category : 'accessing' } -LocaleChanged >> newLocale [ - ^ newLocale -] - -{ #category : 'accessing' } -LocaleChanged >> newLocale: anObject [ - newLocale := anObject -] - -{ #category : 'accessing' } -LocaleChanged >> oldLocale [ - ^ oldLocale -] - -{ #category : 'accessing' } -LocaleChanged >> oldLocale: anObject [ - oldLocale := anObject -] diff --git a/src/System-Localization/LocaleID.class.st b/src/System-Localization/LocaleID.class.st deleted file mode 100644 index 62235bde8d4..00000000000 --- a/src/System-Localization/LocaleID.class.st +++ /dev/null @@ -1,145 +0,0 @@ -" -The ID for localization -" -Class { - #name : 'LocaleID', - #superclass : 'Object', - #instVars : [ - 'isoLanguage', - 'isoCountry' - ], - #category : 'System-Localization-Locales', - #package : 'System-Localization', - #tag : 'Locales' -} - -{ #category : 'accessing' } -LocaleID class >> current [ - ^Locale current localeID -] - -{ #category : 'accessing - defaults' } -LocaleID class >> default [ - ^ self isoLanguage: 'en' -] - -{ #category : 'instance creation' } -LocaleID class >> isoLanguage: langString [ - ^self isoLanguage: langString isoCountry: nil -] - -{ #category : 'instance creation' } -LocaleID class >> isoLanguage: langString isoCountry: countryStringOrNil [ - ^self new isoLanguage: langString isoCountry: countryStringOrNil -] - -{ #category : 'instance creation' } -LocaleID class >> isoString: isoString [ - "Parse the isoString (-) 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 -] - -{ #category : 'instance creation' } -LocaleID class >> posixName: aString [ - ^ self - isoString: (aString copyReplaceAll: '_' with: '-') -] - -{ #category : 'comparing' } -LocaleID >> = anotherObject [ - self class == anotherObject class - ifFalse: [^false]. - ^self isoLanguage = anotherObject isoLanguage - and: [self isoCountry = anotherObject isoCountry] -] - -{ #category : 'accessing' } -LocaleID >> displayCountry [ - ^(ISOLanguageDefinition iso2Countries at: self isoCountry asUppercase ifAbsent: [ self isoCountry ]) -] - -{ #category : 'accessing' } -LocaleID >> displayLanguage [ - | language | - language := (ISOLanguageDefinition iso2LanguageTable - at: self isoLanguage - ifAbsent: [^ self isoLanguage]) language. - ^ self isoCountry - ifNil: [language] - ifNotNil: [language , ' (' , self displayCountry , ')'] -] - -{ #category : 'testing' } -LocaleID >> hasParent [ - ^self isoCountry isNotNil -] - -{ #category : 'comparing' } -LocaleID >> hash [ - ^self isoLanguage hash bitXor: self isoCountry hash -] - -{ #category : 'accessing' } -LocaleID >> isoCountry [ - ^isoCountry -] - -{ #category : 'accessing' } -LocaleID >> isoLanguage [ - ^isoLanguage -] - -{ #category : 'initialize' } -LocaleID >> isoLanguage: langString isoCountry: countryStringOrNil [ - isoLanguage := langString. - isoCountry := countryStringOrNil -] - -{ #category : 'accessing' } -LocaleID >> isoString [ - ^self asString -] - -{ #category : 'accessing' } -LocaleID >> parent [ - ^self class isoLanguage: self isoLanguage -] - -{ #category : 'printing' } -LocaleID >> posixName [ - "(LocaleID isoString: 'es-MX') posixName" - "(LocaleID isoString: 'es') posixName" - "language[_territory]" - ^ self isoCountry - ifNil: [self isoLanguage] - ifNotNil: [self isoLanguage , '_' , self isoCountry] -] - -{ #category : 'printing' } -LocaleID >> printOn: stream [ - "-" - stream nextPutAll: self isoLanguage. - self isoCountry - ifNotNil: [stream nextPut: $-; nextPutAll: self isoCountry] -] - -{ #category : 'storing' } -LocaleID >> storeOn: aStream [ - - aStream - nextPut: $(; - nextPutAll: self class name; - nextPutAll: ' isoString: '; - nextPut: $'; - nextPutAll: self printString; - nextPut: $'; - nextPut: $) -] diff --git a/src/System-Localization/ManifestSystemLocalization.class.st b/src/System-Localization/ManifestSystemLocalization.class.st deleted file mode 100644 index 1a4fa23fbad..00000000000 --- a/src/System-Localization/ManifestSystemLocalization.class.st +++ /dev/null @@ -1,15 +0,0 @@ -" -Localization support -" -Class { - #name : 'ManifestSystemLocalization', - #superclass : 'PackageManifest', - #category : 'System-Localization-Manifest', - #package : 'System-Localization', - #tag : 'Manifest' -} - -{ #category : 'meta-data - dependency analyser' } -ManifestSystemLocalization class >> manuallyResolvedDependencies [ - ^ #(#'Collections-Streams' #'System-Platforms' #'Collections-Abstract') -] diff --git a/src/System-Localization/NaturalLanguageTranslator.class.st b/src/System-Localization/NaturalLanguageTranslator.class.st deleted file mode 100644 index c99ca443b53..00000000000 --- a/src/System-Localization/NaturalLanguageTranslator.class.st +++ /dev/null @@ -1,55 +0,0 @@ -" -A NaturalLanguageTranslator is a dummy translator. - -The localization framework is found in the gettext package usually -overriding this class completely. - -As an alternative you can register a translator using - - NaturalLanguageTranslator current: myTranslator - -If this is done the messages will be dispatched to it -" -Class { - #name : 'NaturalLanguageTranslator', - #superclass : 'Object', - #classVars : [ - 'Current' - ], - #category : 'System-Localization-Translations', - #package : 'System-Localization', - #tag : 'Translations' -} - -{ #category : 'cleanup' } -NaturalLanguageTranslator class >> cleanUp [ - Current ifNotNil: [ Current cleanUp ] -] - -{ #category : 'accessing' } -NaturalLanguageTranslator class >> current [ - "Return the currently registered translator" - - ^Current -] - -{ #category : 'accessing' } -NaturalLanguageTranslator class >> current: aTranslator [ - "Register a translator that should receiver the translation messages" - - Current := aTranslator -] - -{ #category : 'translate' } -NaturalLanguageTranslator class >> translate: aString [ - "Dispatch to a registered translator to translate the given string or (if there is no translator) return the untranslated string." - Current ifNotNil: [ ^Current translate: aString ]. - ^ aString -] - -{ #category : 'translate' } -NaturalLanguageTranslator class >> translate: aString toLocale: localeID [ - "Dispatch to a registered translator to translate the given string with the given locale ID or (if there is no translator) return the untranslated string." - Current ifNotNil: [ ^Current translate: aString toLocale: localeID ]. - ^ aString -] diff --git a/src/System-Localization/String.extension.st b/src/System-Localization/String.extension.st deleted file mode 100644 index 8e569810c4d..00000000000 --- a/src/System-Localization/String.extension.st +++ /dev/null @@ -1,13 +0,0 @@ -Extension { #name : 'String' } - -{ #category : '*System-Localization' } -String >> translated [ -"answer the receiver translated to the default language" - ^ NaturalLanguageTranslator translate: self -] - -{ #category : '*System-Localization' } -String >> translatedTo: localeID [ - "answer the receiver translated to the given locale id" - ^ NaturalLanguageTranslator translate: self toLocale: localeID -] diff --git a/src/System-Localization/package.st b/src/System-Localization/package.st deleted file mode 100644 index 7d9ce984d8a..00000000000 --- a/src/System-Localization/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'System-Localization' } From ffe36b9cb9b8ebbbcea27bb3e358c97783ce9d7e Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Fri, 25 Apr 2025 15:31:09 +0200 Subject: [PATCH 2/8] Added deprecated `translate` method for String --- src/Deprecated14/String.extension.st | 11 +++++++++++ src/Deprecated14/package.st | 1 + 2 files changed, 12 insertions(+) create mode 100644 src/Deprecated14/String.extension.st create mode 100644 src/Deprecated14/package.st diff --git a/src/Deprecated14/String.extension.st b/src/Deprecated14/String.extension.st new file mode 100644 index 00000000000..bda13dea9dc --- /dev/null +++ b/src/Deprecated14/String.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'String' } + +{ #category : '*Deprecated14' } +String >> translated [ + + self + deprecated: + 'This method will be removed from the next Pharo version. It used to do nothing, just return self' + transformWith: '`@receiver translated' -> '`@receiver '. + ^ self +] diff --git a/src/Deprecated14/package.st b/src/Deprecated14/package.st new file mode 100644 index 00000000000..bc28adc7683 --- /dev/null +++ b/src/Deprecated14/package.st @@ -0,0 +1 @@ +Package { #name : 'Deprecated14' } From c7b931cc7c512d36eb397399fe2a5209e6df3e2c Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Fri, 25 Apr 2025 16:44:01 +0200 Subject: [PATCH 3/8] Added event to keep the replace text in the "Find & Replace" presenter --- .../SpRubFindReplaceDialog.class.st | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st b/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st index 65907913ceb..bbbd03203e1 100644 --- a/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st +++ b/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st @@ -100,6 +100,12 @@ SpRubFindReplaceDialog >> closeWindowOnEscIn: aPresenter [ this widget announcer when: RubKeystroke do: [ :ann | ann event keyCharacter = Character escape ifTrue: [ self window triggerCancelAction ] ] for: self ] ] +{ #category : 'initialization' } +SpRubFindReplaceDialog >> connectPresenters [ + + replaceTextInput whenTextChangedDo: [ :aText | self replacingText: aText ] +] + { #category : 'operations' } SpRubFindReplaceDialog >> find [ self updateService. From 8f59926da9b2a23676103dd168d6e6b9df26d9f1 Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Fri, 25 Apr 2025 16:46:29 +0200 Subject: [PATCH 4/8] Revert "Added event to keep the replace text in the "Find & Replace" presenter" This reverts commit c7b931cc7c512d36eb397399fe2a5209e6df3e2c. --- .../SpRubFindReplaceDialog.class.st | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st b/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st index bbbd03203e1..65907913ceb 100644 --- a/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st +++ b/src/Rubric-SpecFindReplaceDialog/SpRubFindReplaceDialog.class.st @@ -100,12 +100,6 @@ SpRubFindReplaceDialog >> closeWindowOnEscIn: aPresenter [ this widget announcer when: RubKeystroke do: [ :ann | ann event keyCharacter = Character escape ifTrue: [ self window triggerCancelAction ] ] for: self ] ] -{ #category : 'initialization' } -SpRubFindReplaceDialog >> connectPresenters [ - - replaceTextInput whenTextChangedDo: [ :aText | self replacingText: aText ] -] - { #category : 'operations' } SpRubFindReplaceDialog >> find [ self updateService. From e8e06340915952c6141c3d3dd662e056d26780a1 Mon Sep 17 00:00:00 2001 From: sebastian Date: Fri, 25 Jul 2025 16:00:10 +0200 Subject: [PATCH 5/8] Removed references from the baseline --- src/BaselineOfGeneralTests/BaselineOfGeneralTests.class.st | 1 - src/BaselineOfMorphic/BaselineOfMorphic.class.st | 2 -- 2 files changed, 3 deletions(-) diff --git a/src/BaselineOfGeneralTests/BaselineOfGeneralTests.class.st b/src/BaselineOfGeneralTests/BaselineOfGeneralTests.class.st index b3cfe14fb15..ed9befd9804 100644 --- a/src/BaselineOfGeneralTests/BaselineOfGeneralTests.class.st +++ b/src/BaselineOfGeneralTests/BaselineOfGeneralTests.class.st @@ -49,7 +49,6 @@ BaselineOfGeneralTests >> baseline: spec [ package: 'System-Utilities-Tests'; package: 'System-Hashing-Tests'; package: 'System-History-Tests'; - package: 'System-Localization-Tests'; package: 'System-SessionManager-Tests'; package: 'System-Settings-Tests'; package: 'System-Support-Tests'; diff --git a/src/BaselineOfMorphic/BaselineOfMorphic.class.st b/src/BaselineOfMorphic/BaselineOfMorphic.class.st index ec60f0c9fd2..b3b671233a0 100644 --- a/src/BaselineOfMorphic/BaselineOfMorphic.class.st +++ b/src/BaselineOfMorphic/BaselineOfMorphic.class.st @@ -48,8 +48,6 @@ BaselineOfMorphic >> baseline: spec [ repository: repository; loads: #( 'Core' ) ]. - spec package: 'System-Localization'. - spec baseline: 'FreeType' with: [ spec repository: repository; From 18ca9c129594bcd00c950efb1c68f5288423984e Mon Sep 17 00:00:00 2001 From: CyrilFerlicot Date: Sat, 26 Jul 2025 14:18:02 +0200 Subject: [PATCH 6/8] Remove reference to Locale class --- src/BaselineOfMorphic/BaselineOfMorphic.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/BaselineOfMorphic/BaselineOfMorphic.class.st b/src/BaselineOfMorphic/BaselineOfMorphic.class.st index b3b671233a0..c3cfa5154f3 100644 --- a/src/BaselineOfMorphic/BaselineOfMorphic.class.st +++ b/src/BaselineOfMorphic/BaselineOfMorphic.class.st @@ -274,7 +274,7 @@ BaselineOfMorphic >> postload: loader package: packageSpec [ #FreeTypeCache #FreeTypeSettings #FreeTypeSubPixelAntiAliasedGlyphRenderer #FT2Constants #GIFReadWriter #GlobalIdentifier #HaloMorph #CharacterScanner #ImageMorph #JPEGHuffmanTable #JPEGReadStream - #Locale #MczInstaller #MD5NonPrimitive #MenuItemMorph + #MczInstaller #MD5NonPrimitive #MenuItemMorph #MenuMorph #RxMatcher #RxParser #RxsPredicate #SHA1 #ShortIntegerArray #SystemProgressMorph #SystemWindow #TestCase #TextContainer #TextDiffBuilder #ThumbnailMorph #TransferMorph #UITheme #ZnByteEncoder From 4313fb77d84cd08d82af88f71816810ac53eabbf Mon Sep 17 00:00:00 2001 From: sebastian Date: Sun, 27 Jul 2025 15:20:41 +0200 Subject: [PATCH 7/8] Removed Locale reference from settings. --- src/Settings-System/SystemSystemSettings.class.st | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/src/Settings-System/SystemSystemSettings.class.st b/src/Settings-System/SystemSystemSettings.class.st index b34442a5aff..ef48cbae60b 100644 --- a/src/Settings-System/SystemSystemSettings.class.st +++ b/src/Settings-System/SystemSystemSettings.class.st @@ -29,11 +29,5 @@ SystemSystemSettings class >> systemSettingOn: aBuilder [ label: 'Server mode'; target: WorldState; default: false; - description: 'If enabled, then each main rendering loop will always wait a complete delay of 50 ms' . - (aBuilder setting: #useLocale) - label: 'Use locale'; - default: false; - target: Locale; - selector: #activated; - description: 'Use the system locale to set the system language at startup.'] + description: 'If enabled, then each main rendering loop will always wait a complete delay of 50 ms' ] ] From d50880f3571cb51a0ca33a03f7c707dd89101709 Mon Sep 17 00:00:00 2001 From: sebastian Date: Sun, 27 Jul 2025 16:30:45 +0200 Subject: [PATCH 8/8] Removed translated call from Morphic Ui. Because it is being call during bootstrap. --- src/Polymorph-Widgets/MorphicUIManager.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Polymorph-Widgets/MorphicUIManager.class.st b/src/Polymorph-Widgets/MorphicUIManager.class.st index 82af05b0fbc..15fffc6eca8 100644 --- a/src/Polymorph-Widgets/MorphicUIManager.class.st +++ b/src/Polymorph-Widgets/MorphicUIManager.class.st @@ -367,7 +367,7 @@ MorphicUIManager >> inform: aStringOrText [ (ProvideAnswerNotification signal: aStringOrText) ifNotNil: [:answer | ^true]. GrowlMorph - openWithLabel: 'Information' translated + openWithLabel: 'Information' contents: aStringOrText ]