Karl Ramberg uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-kfr.35.mcz

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

Name: GetText-kfr.35
Author: kfr
Time: 26 April 2015, 8:36:22.793 am
UUID: 850442bf-5dfd-6741-939c-4ff232aeabaf
Ancestors: GetText-nice.34

Make LanguageEditor items from TheWorldMenu/open respond a little nicer

=============== Diff against GetText-nice.34 ===============

Item was changed:
  ----- Method: LanguageEditor class>>on: (in category 'instance creation') -----
  on: localeID 
  	"answer an instance of the receiver on aLanguage"
  	^ self new
  		initializeOn: (InternalTranslator cachedTranslations
  				at: localeID
  				ifAbsent: [self
+ 						inform: ('Translator for {1} is not found' translated format: {localeID}). ^nil])!
- 						error: ('Translator for {1} is not found' translated format: {localeID})])!

Item was changed:
  ----- Method: LanguageEditor class>>open (in category 'opening') -----
  open
  	"open the receiver on any language"
  	" 
  	LanguageEditor open. 
  	"
+ 	| menu availableLanguages |
- 	| menu |
  	menu := MenuMorph new defaultTarget: self.
  	menu addTitle: 'Language Editor for...' translated.
  	""
+ 	availableLanguages := (InternalTranslator availableLanguageLocaleIDs asSortedCollection: [:x :y | x asString <= y asString]).
+ 	availableLanguages ifEmpty:[^self inform:'InternalTranslator not initialized'].
+ 	availableLanguages
- 	(InternalTranslator availableLanguageLocaleIDs
- 		asSortedCollection: [:x :y | x asString <= y asString])
  		do: [:eachLanguage | ""
  			menu
  				add: eachLanguage name
  				target: self
  				selector: #openOn:
  				argument: eachLanguage].
  	""
  	menu popUpInWorld!

Item was changed:
  ----- Method: LanguageEditor class>>openOn: (in category 'instance creation') -----
  openOn: aLanguage 
  	"open an instance on aLanguage"
+ 	| editor |
  	World submorphs
  		do: [:each | ""
  			((each isKindOf: LanguageEditor)
  					and: [each translator == aLanguage])
  				ifTrue: [""
  					self ensureVisibilityOfWindow: each.
  					^ self]].
  	""
+ 	 editor := self on: aLanguage.
+ 	 editor ifNotNil:[^editor openInWorld]!
- 	^ (self on: aLanguage) openInWorld!