[squeak-dev] The Trunk: GetText-fbs.33.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 23 08:39:27 UTC 2013
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!
More information about the Squeak-dev
mailing list
|