'From etoys3.0 of 24 February 2008 [latest update: #2126] on 3 September 2008 at 10:50:03 pm'! "Change Set: pangoBeforeFixLayout-yo Date: 3 September 2008 Author: Yoshiki Ohshima Fixes the wrong layout problem after switching to Pango."! !Project methodsFor: 'language' stamp: 'yo 9/3/2008 22:33'! updateLocaleDependentsWithPreviousSupplies: aCollection gently: gentlyFlag "Set the project's natural language as indicated" | morphs | gentlyFlag ifTrue: [ LanguageEnvironment localeChangedGently. ] ifFalse: [ LanguageEnvironment localeChanged. ]. morphs := IdentitySet new: 400. ActiveWorld allMorphsAndBookPagesInto: morphs. morphs do: [:morph | morph isTileScriptingElement ifTrue: [morph localeChanged]. (morph isKindOf: TextMorph) ifTrue: [morph localeChanged]. "NB: only those marked as translatable will be translated..." morph class == ObjectsTool ifTrue: [morph localeChanged]]. Flaps disableGlobalFlaps: false. Preferences sugarNavigator ifTrue: [Flaps addAndEnableEToyFlapsWithPreviousEntries: aCollection. ActiveWorld addGlobalFlaps] ifFalse: [Preferences eToyFriendly ifTrue: [Flaps addAndEnableEToyFlaps. ActiveWorld addGlobalFlaps] ifFalse: [Flaps enableGlobalFlaps]]. (Project current isFlapIDEnabled: 'Navigator' translated) ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated]. ParagraphEditor initializeTextEditorMenus. MenuIcons initializeTranslations. #(PartsBin ParagraphEditor BitEditor FormEditor StandardSystemController) do: [ :key | Smalltalk at: key ifPresent: [ :class | class initialize ]]. ActiveWorld reformulateUpdatingMenus. "self setFlaps. self setPaletteFor: aLanguageSymbol." ! !