[Pkg] The Trunk: GetText-fbs.33.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-fbs.33.mcz

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

Name: GetText-fbs.33
Author: fbs
Time: 23 May 2013, 8:49:46.305 am
UUID: 510b105a-9475-4d0b-8f92-e7123eb19a2d
Ancestors: GetText-fbs.32

Update GetText to use UIManager default instead of FillInTheBlank.

=============== Diff against GetText-fbs.32 ===============

Item was changed:
  ----- Method: LanguageEditor>>addTranslation (in category 'gui methods') -----
  addTranslation
  	"translate a phrase"
  	| phrase |
+ 	phrase := UIManager default
- 	phrase := FillInTheBlank
  				request: 'enter the original:' translated
  				initialAnswer: ''.
  
  	(phrase isNil
  			or: [phrase = ''])
+ 		ifTrue: [
- 		ifTrue: [""
  			self beep.
  			^ self].
+ 
- 	""
  	self translatePhrase: phrase!

Item was changed:
  ----- Method: LanguageEditor>>filterTranslations (in category 'gui methods') -----
  filterTranslations
  	| filter |
+ 	filter := UIManager default
+ 		request: 'filter with
+ (empty string means no-filtering)' translated
+ 		initialAnswer: self translationsFilter.
+ 
- 	filter := FillInTheBlank request: 'filter with
- (empty string means no-filtering)' translated initialAnswer: self translationsFilter.
- 	""
  	self filterTranslations: filter!

Item was changed:
  ----- Method: LanguageEditor>>filterUntranslated (in category 'gui methods') -----
  filterUntranslated
  	| filter |
+ 	filter := UIManager default
+ 		request: 'filter with
+ (empty string means no-filtering)' translated
+ 		initialAnswer: self untranslatedFilter.
+ 
- 	filter := FillInTheBlank request: 'filter with
- (empty string means no-filtering)' translated initialAnswer: self untranslatedFilter.
- 	""
  	self filterUntranslated: filter!

Item was changed:
  ----- Method: LanguageEditor>>newTranslations (in category 'gui methods') -----
  newTranslations
  	"private - try to apply the translations as much as possible all 
  	over the image"
  	| result newID |
+ 	result := UIManager default request: 'New locale ID string?' translated initialAnswer: Locale current determineLocaleID isoString.
- 	result := FillInTheBlank request: 'New locale ID string?' translated initialAnswer: Locale current determineLocaleID isoString.
  	result isEmpty
  		ifTrue: ["Do nothing"
  			^ self].
  	newID := LocaleID isoString: result.
  	InternalTranslator
  		newLocaleID: (LocaleID isoString: result).
  	self class openOn: newID!

Item was changed:
  ----- Method: LanguageEditor>>phraseToTranslate (in category 'gui methods') -----
  phraseToTranslate
  	"answer a phrase to translate.  use the selected untranslated phrase or ask for a new one"
  	^ self selectedUntranslated isZero
+ 		ifTrue: [UIManager default
- 		ifTrue: [FillInTheBlank
  				multiLineRequest: 'new phrase to translate' translated
  				centerAt: Sensor cursorPoint
  				initialAnswer: ''
  				answerHeight: 200]
  		ifFalse: [self untranslated at: self selectedUntranslated]!

Item was changed:
  ----- Method: LanguageEditor>>saveToFile (in category 'gui methods') -----
  saveToFile
  	"save the translator to a file"
  	| fileName |
+ 	fileName := UIManager default request: 'file name' translated initialAnswer: translator localeID isoString , '.translation'.
- 	fileName := FillInTheBlank request: 'file name' translated initialAnswer: translator localeID isoString , '.translation'.
  	(fileName isNil
  			or: [fileName isEmpty])
+ 		ifTrue: [
- 		ifTrue: [""
  			self beep.
  			^ self].
+ 
- 	""
  Cursor wait
  		showWhile: [
  	self translator saveToFileNamed: fileName]!

Item was changed:
  ----- Method: LanguageEditor>>searchTranslation (in category 'gui methods') -----
  searchTranslation
  	| search |
+ 	search := UIManager default request: 'search for' translated initialAnswer: ''.
- 	search := FillInTheBlank request: 'search for' translated initialAnswer: ''.
  	(search isNil
  			or: [search isEmpty])
+ 		ifTrue: [
- 		ifTrue: [""
  			self beep.
  			^ self].
+ 
- ""
  self searchTranslation: search!

Item was changed:
  ----- Method: LanguageEditor>>searchUntranslated (in category 'gui methods') -----
  searchUntranslated
  	| search |
+ 	search := UIManager default request: 'search for' translated initialAnswer: ''.
- 	search := FillInTheBlank request: 'search for' translated initialAnswer: ''.
  	(search isNil
  			or: [search isEmpty])
+ 		ifTrue: [
- 		ifTrue: [""
  			self beep.
  			^ self].
+ 
- 	""
  	self searchUntranslated: search!

Item was changed:
  ----- Method: LanguageEditor>>translatePhrase: (in category 'gui methods') -----
  translatePhrase: aString 
  	"translate aString"
  	| translation |
+ 	translation := UIManager default
- 	translation := FillInTheBlank
  				multiLineRequest: 'translation for: ' translated , '''' , aString , ''''
  				centerAt: Sensor cursorPoint
  				initialAnswer: aString
  				answerHeight: 200.
+ 
- 	""
  	(translation isNil
  			or: [translation = ''])
  		ifTrue: [""
  			self beep.
  			^ self].
+ 
- 	""
  	self phrase: aString translation: translation!