[etoys-dev] Etoys: System-kfr.6.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun May 2 16:40:46 EDT 2010
Karl Ramberg uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-kfr.6.mcz
==================== Summary ====================
Name: System-kfr.6
Author: kfr
Time: 2 May 2010, 10:38:53 pm
UUID: 179bb06c-dbca-204b-b4d6-d5f539fe957d
Ancestors: System-bf.5
Fix a few things from System-kfr.4 per Berts suggestion
=============== Diff against System-bf.5 ===============
Item was changed:
----- Method: Project>>chooseNaturalLanguage (in category 'language') -----
chooseNaturalLanguage
"Put up a menu allowing the user to choose the natural language for the project"
| aMenu availableLanguages item |
Cursor wait showWhile: [
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.
+ ].
+ Preferences eToyFriendly
+ ifFalse:[aMenu addUpdating: #useLocaleString action: #toggleUseLocale.
- aMenu addUpdating: #useLocaleString action: #toggleUseLocale.
aMenu addLine].
availableLanguages := NaturalLanguageTranslator availableLanguageLocaleIDs
asSortedCollection:[:x :y | x displayName < y displayName].
availableLanguages do:
[:localeID |
item _ aMenu addUpdating: #stringForLanguageNameIs: target: Locale selector: #switchAndInstallFontToID:gently: argumentList: {localeID. true} extraIcon: (Locale localeID: localeID) iconForNativeLanguage.
item wordingArgument: localeID.].
].
aMenu popUpInWorld
"Project current chooseNaturalLanguage"!
Item was changed:
----- Method: Project>>toggleUseLocale (in category 'language') -----
toggleUseLocale
+ ^Preferences togglePreference: #useLocale
- ^ Preferences setPreference: #useLocale toValue: ((Preferences useLocale == true) not)
!
More information about the etoys-dev
mailing list