Tim Felgentreff uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.1206.mcz==================== Summary ====================
Name: Morphic-tfel.1206
Author: tfel
Time: 28 July 2016, 5:39:34.138262 pm
UUID: 5576675a-2dc1-5a44-af3d-adccb4b2649e
Ancestors: Morphic-mt.1205
Use all translators to offer languages
=============== Diff against Morphic-mt.1205 ===============
Item was changed:
----- Method: MorphicProject>>chooseNaturalLanguage (in category 'language') -----
chooseNaturalLanguage
"Put up a menu allowing the user to choose the natural language for the project"
| aMenu availableLanguages |
aMenu := MenuMorph new defaultTarget: self.
aMenu addTitle: 'choose language' translated.
aMenu lastItem setBalloonText: 'This controls the human language in which tiles should be viewed. It is potentially extensible to be a true localization mechanism, but initially it only works in the classic tile scripting system. Each project has its own private language choice' translated.
Preferences noviceMode
ifFalse:[aMenu addStayUpItem].
+ availableLanguages := NaturalLanguageTranslator availableLanguageLocaleIDs
- availableLanguages := InternalTranslator availableLanguageLocaleIDs
asSortedCollection:[:x :y | x displayName < y displayName].
availableLanguages do:
[:localeID |
aMenu addUpdating: #stringForLanguageNameIs: target: Locale selector: #switchAndInstallFontToID: argumentList: {localeID}].
aMenu popUpInWorld
"Project current chooseNaturalLanguage"!