[etoys-dev] Etoys: System-Richo.18.mcz

[commits at source.squeak.org]

Ricardo Moran uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-Richo.18.mcz

==================== Summary ====================

Name: System-Richo.18
Author: Richo
Time: 27 May 2010, 6:31:59 pm
UUID: 2f9e1afd-1359-bf4c-93f7-cd9364fd18cc
Ancestors: System-Richo.17

* Reverted Project>>#chooseNaturalLanguage to old version. The source is the same, I just want to preserve the version info.

=============== Diff against System-Richo.17 ===============

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 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"!