The Trunk: GetText-fbs.33.mcz

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!

On 23 May 2013 09:39,  <[hidden email]> wrote:
Not only does this update old-style code to new-style code, it breaks
the GetText->ST80 dependency.

frank