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:
> 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 =============== Not only does this update old-style code to new-style code, it breaks the GetText->ST80 dependency. frank |
Free forum by Nabble | Edit this page |