'From etoys3.0 of 24 February 2008 [latest update: #2148] on 17 September 2008 at 1:21:03 pm'! "Change Set: localeAndPangoCheck-yo Date: 17 September 2008 Author: Yoshiki Ohshima Enable pango when the locale is unknown. Reorder the start up list so that it does it in a saner order."! !Locale class methodsFor: 'accessing' stamp: 'yo 9/17/2008 13:18'! switchAndInstallFontToID: localeID gently: gentlyFlag | locale | locale := Locale localeID: localeID. SugarLauncher isRunningInRainbow ifFalse: [ locale languageEnvironment isFontAvailable ifFalse: [(self confirm: 'This language needs additional fonts. Do you want to install the fonts?' translated) ifTrue: [locale languageEnvironment installFont. StrikeFont setupDefaultFallbackTextStyle] ifFalse: [ self]] ] ifTrue: [ "We just enable Pango when we see a unknown system locale." (NaturalLanguageTranslator availableLanguageLocaleIDs includes: localeID parent) ifFalse: [ Cursor wait showWhile: [ Preferences setPreference: #usePangoRenderer toValue: true. TextMorph usePango: true]. ] ]. self switchTo: locale gently: gentlyFlag ! ! !PasteUpMorph class methodsFor: 'system startup' stamp: 'yo 9/17/2008 13:06'! startUp World ifNotNil:[ World restoreMorphicDisplay. World triggerEvent: #aboutToEnterWorld. World doOneCycleNow. ]. ! ! "Postscript: " Smalltalk addToStartUpList: NaturalLanguageTranslator after: PasteUpMorph. Smalltalk addToStartUpList: Locale after: NaturalLanguageTranslator. Smalltalk addToStartUpList: LanguageEnvironment after: Locale. !