hg/stx-libtool2: comparison Tools__InternationalLanguageTranslationEditor.st

equal deleted inserted replaced

-:5b8697869e72
+:1ea9a6fbe2b4
 		searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder
 		lastNameSpace pasteOriginalEnableHolder ignoreCaseHolder
 		closeSearchBar searchTextModifiedHolder searchNextText
 		searchBarImageInfoLabelHolder searchPreviousText searchBoxVisible
 		searchBarInfoLabelHolder searchTextHolder searchTextView
-		searchBoxView translationsPanel lastPackage'
+		searchBoxView translationsPanel lastPackage methodsUsingKey'
 	classVariableNames:'LastExtractedClass LastExtractedApplicationClass
 		LastExtractedProject LastProject'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 Object subclass:#AccessCollectingPseudoResourcePack
-	instanceVariableNames:'collectedKeys realResourcePack'
+	instanceVariableNames:'collectedKeys realResourcePack watchingTranslationEditor'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:InternationalLanguageTranslationEditor
 !
 "
 !
 history
 "Created: / 04-03-2006 / 09:07:19 / cg"
+! !
+!InternationalLanguageTranslationEditor class methodsFor:'help spec'!
+flyByHelpSpec
+<resource: #help>
+^ super flyByHelpSpec addPairsFrom:#(
+#searchBox
+'Show a search box at the bottom to search for substrings in the string keys'
+#browseReferringMethods
+'Browse methods which refer to this string'
+)
+! !
+!InternationalLanguageTranslationEditor class methodsFor:'help specs'!
+helpSpec
+"This resource specification was automatically generated
+by the UIHelpTool of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the UIHelpTool may not be able to read the specification."
+"
+UIHelpTool openOnClass:Tools::InternationalLanguageTranslationEditor
+"
+<resource: #help>
+^ super helpSpec addPairsFrom:#(
+#searchBox
+''
+)
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'image specs'!
 closeSearchBarIcon
 )
 )
 )
 )
-handles: (Any 0.33333333333333004 0.66666666666667007 1.0)
+handles: (Any 0.3333333333333301 0.66666666666667018 1.0)
 )
 )
 )
 handles: (Any 0.5 1.0)
 model: closeSearchBar
 )
 (LabelSpec
 label: 'Search:'
 name: 'SearchLabel'
-layout: (LayoutFrame 30 0 5 0 81 0 27 0)
+layout: (LayoutFrame 30 0 5 0 100 0 27 0)
 translateLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'SearchEntryField'
-layout: (LayoutFrame 87 0 5 0 244 0 27 0)
+layout: (LayoutFrame 100 0 5 0 257 0 27 0)
 model: searchTextHolder
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnLostFocus: true
 postBuildCallback: postBuildSearchTextView:
 )
 (ActionButtonSpec
 label: 'searchNextIcon'
 name: 'SearchNextButton'
-layout: (LayoutFrame 251 0 5 0 272 0 26 0)
+layout: (LayoutFrame 264 0 5 0 285 0 26 0)
 hasCharacterOrientedLabel: false
 translateLabel: true
 model: searchNextText
 )
 (ActionButtonSpec
 label: 'searchPreviousIcon'
 name: 'searchPreviousButton'
-layout: (LayoutFrame 279 0 5 0 300 0 26 0)
+layout: (LayoutFrame 292 0 5 0 313 0 26 0)
 hasCharacterOrientedLabel: false
 translateLabel: true
 model: searchPreviousText
 )
 (CheckBoxSpec
 label: 'Ignore case'
 name: 'IgnoreCaseCheckBox'
-layout: (LayoutFrame 309 0 5 0 505 0 27 0)
+layout: (LayoutFrame 322 0 5 0 518 0 27 0)
 model: ignoreCaseHolder
 translateLabel: true
 )
 (LabelSpec
 label: 'SearchBarImageInfoLabel'
 name: 'SearchBarImageInfoLabel'
-layout: (LayoutFrame 511 0 5 0 535 0 27 0)
+layout: (LayoutFrame 524 0 5 0 548 0 27 0)
 hasCharacterOrientedLabel: false
 translateLabel: true
 labelChannel: searchBarImageInfoLabelHolder
 )
 (LabelSpec
 label: 'SearchBarInfoLabel'
 name: 'SearchBarInfoLabel'
-layout: (LayoutFrame 538 0 5 0 816 0 27 0)
+layout: (LayoutFrame 551 0 5 0 829 0 27 0)
 translateLabel: true
 labelChannel: searchBarInfoLabelHolder
 adjust: left
 )
 )
 <resource: #menu>
 ^
 #(Menu
-	(
+(
-	 (MenuItem
+(MenuItem
-	    label: 'Set Current NameSpace'
+label: 'Browse Methods Containing this String'
-	    itemValue: changeLastNameSpace
+itemValue: browseReferringMethods
-	    translateLabel: true
+translateLabel: true
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Search String in Current NameSpace'
+label: '-'
-	    itemValue: searchStringInLastNameSpace
+isVisible: #false
-	    translateLabel: true
+)
-	  )
+(MenuItem
-	 (MenuItem
+label: 'Set Current NameSpace...'
-	    label: '-'
+itemValue: changeLastNameSpace
-	    isVisible: #false
+translateLabel: true
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Set Current Package'
+label: 'Search String in Current NameSpace'
-	    itemValue: changeLastPackage
+itemValue: searchStringInLastNameSpace
-	    translateLabel: true
+translateLabel: true
-	    isVisible: #false
+)
-	  )
+(MenuItem
-	 (MenuItem
+label: '-'
-	    label: 'Search String in Current Package'
+isVisible: #false
-	    itemValue: searchStringInLastPackage
+)
-	    translateLabel: true
+(MenuItem
-	    isVisible: #false
+label: 'Set Current Package...'
-	  )
+itemValue: changeLastPackage
-	 )
+translateLabel: true
-	nil
+isVisible: #false
-	nil
+)
+(MenuItem
+label: 'Search String in Current Package'
+itemValue: searchStringInLastPackage
+translateLabel: true
+isVisible: #false
+)
+)
+nil
+nil
 )
 !
 mainMenu
 "This resource specification was automatically generated
 (Menu
 (
 (MenuItem
 label: 'Show Missing Translations Only'
 indication: showMissingTranslationsOnly
+)
+(MenuItem
+label: 'Show Search Box'
+indication: searchBoxVisible
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 #(Menu
 (
 (MenuItem
 label: 'Save'
 itemValue: menuSave
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 label: 'Add Translation'
 itemValue: addTranslation
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
 )
 (MenuItem
 label: 'Remove Translation'
 itemValue: removeTranslation
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
-label: 'Search'
+activeHelpKey: browseReferringMethods
-itemValue: search
+label: 'Browse'
-translateLabel: true
+itemValue: browseReferringMethods
-isButton: true
+labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowserIcon)
-shortcutKey: Ctrlf
-labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
 )
 (MenuItem
 label: ''
 )
 (MenuItem
 label: 'Stop Application'
 itemValue: stopApplication
-translateLabel: true
 isButton: true
 isVisible: stopApplicationIconVisibleHolder
 labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
+)
+(MenuItem
+activeHelpKey: searchBox
+label: 'Search'
+isButton: true
+startGroup: right
+hideMenuOnActivated: false
+indication: searchBoxVisible
+shortcutKey: Ctrlf
+labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
 )
 )
 nil
 nil
 )
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
+label: 'Extract from Package...'
+itemValue: extractTranslationsFromProject
+)
+(MenuItem
 label: 'Extract from Class...'
 itemValue: extractTranslationsFromClass
-)
-(MenuItem
-label: 'Extract from Project...'
-itemValue: extractTranslationsFromProject
 )
 (MenuItem
 label: 'Extract from NameSpace...'
 itemValue: extractTranslationsFromNameSpace
 )
 !
 searchBoxVisible
 searchBoxVisible isNil ifTrue:[
-	searchBoxVisible := false asValue.
+searchBoxVisible := false asValue.
+searchBoxVisible
+onChangeEvaluate:[
+self updateToolVisibility.
+searchBoxVisible value ifTrue:[
+searchTextView takeFocus.
+].
+].
 ].
 ^ searchBoxVisible.
 "Created: / 15-06-2007 / 18:15:52 / Administrador"
 !
 !
 initialize
 modified := false.
 inSingleFileMode := false.
+methodsUsingKey := Dictionary new.
 super initialize
 !
 languageEditorBuilt:aView
 languageEditor := aView.
 	keyStringsToLanguageMappings addKey:key.
 	modified := true.
 ].
 index := keyStringsToLanguageMappings indexOfKey:key.
 self selectedKeyRow value:index
+!
+browseReferringMethods
+|selectedKey methods browser|
+selectedKey := self selectedKey.
+selectedKey isNil ifTrue:[^ Dialog information: 'No selected key'].
+methods := methodsUsingKey at:selectedKey ifAbsent:nil.
+methods isEmptyOrNil ifTrue:[
+Dialog information:(resources stringWithCRs:'oops - no method remembered.\Please rerun the extract from XXX menu operation').
+^ self.
+].
+browser := UserPreferences systemBrowserClass browseMethods:methods.
+browser autoSearch:selectedKey ignoreCase:true.
 !
 changeLastNameSpace
 |nameSpace defaultNameSpace|
 runApplicationAndCollectTranslations
 |applicationClass newTranslations pseudoPack app startSelector|
 monitoredApplication notNil ifTrue:[
-	monitoredApplication terminate.
+monitoredApplication terminate.
-	[monitoredApplication notNil] whileTrue:[
+[monitoredApplication notNil] whileTrue:[
-	    Delay waitForSeconds:0.1
+Delay waitForSeconds:0.1
-	].
+].
 ].
 applicationClass := Dialog
-		requestClass:'Application class to start and collect translations from:'
+requestClass:'Application class to start and collect translations from:'
-		okLabel:'OK'
+okLabel:'OK'
-		initialAnswer:(lastExtractedApplicationClass ? LastExtractedApplicationClass ).
+initialAnswer:(lastExtractedApplicationClass ? LastExtractedApplicationClass ).
 applicationClass isNil ifTrue:[^ self ].
-applicationClass isNamespace ifTrue:[
+applicationClass isNameSpace ifTrue:[
-	Dialog warn:'Entered class is a NameSpace'.
+Dialog warn:'Entered class is a NameSpace'.
-	^ self.
+^ self.
 ].
 applicationClass isVisualStartable ifTrue:[
-	startSelector := #open
+startSelector := #open
 ] ifFalse:[
-	startSelector := Dialog
+startSelector := Dialog
-		    request:'Entered class seems to be no application class. Ok to start using selector:'
+request:'Entered class seems to be no application class. Ok to start using selector:'
-		    initialAnswer:((applicationClass respondsTo:#'start')
+initialAnswer:((applicationClass respondsTo:#'start')
-					ifTrue:#'start'
+ifTrue:#'start'
-					ifFalse:#'new')
+ifFalse:#'new')
-		    okLabel:'START'
+okLabel:'START'
-		    title:'Start Application'.
+title:'Start Application'.
-	startSelector isNil ifTrue:[
+startSelector isNil ifTrue:[
-	    ^ self
+^ self
-	].
+].
-	startSelector := startSelector asSymbol.
+startSelector := startSelector asSymbol.
 ].
 lastExtractedApplicationClass := LastExtractedApplicationClass := applicationClass.
 newTranslations := Set new.
 pseudoPack := AccessCollectingPseudoResourcePack new.
 pseudoPack realResourcePack:(applicationClass classResources).
+pseudoPack watchingTranslationEditor:self.
 self stopApplicationIconVisibleHolder value:true.
-monitoredApplication := [
+monitoredApplication :=
-	[
+[
-	    app := applicationClass new.
+[
-	    app perform:startSelector.
+app := applicationClass new.
-	    app window waitUntilVisible.
+app resources:pseudoPack.
-	    app window waitUntilClosed.
-	] ensure:[
+app perform:startSelector.
-	    app closeRequest.
+app window waitUntilVisible.
-	    self stopApplicationIconVisibleHolder value:false.
+app window waitUntilClosed.
-	    monitoredApplication := nil.
+] ensure:[
-	].
+app closeRequest.
-] fork.
+self stopApplicationIconVisibleHolder value:false.
+monitoredApplication := nil.
+].
+] fork.
 !
 searchStringInLastNameSpace
 |selectedKey browser lastSearchPatterns|
 searchStringInLastPackage
 | selectedKey browser lastSearchPatterns|
 selectedKey := self selectedKey.
-selectedKey isNil ifTrue:[^Dialog information: 'No selected key'].
+selectedKey isNil ifTrue:[^ Dialog information: 'No selected key'].
 browser := NewSystemBrowser new "open".
 browser allButOpen.
 lastSearchPatterns := browser lastSearchPatterns.
 (lastSearchPatterns notNil and:[lastSearchPatterns first ~= selectedKey]) ifTrue:[
-	browser lastSearchPatterns addFirst: selectedKey
+browser lastSearchPatterns addFirst: selectedKey
 ].
 SearchDialog lastStringSearchArea: #currentPackage.
 lastPackage isNil ifTrue:[
-	self changeLastPackage.
+self changeLastPackage.
 ].
 lastPackage notNil ifTrue:[
 "/        browser navigationState selectedClasses value: lastNameSpace allClasses.
-	browser navigationState packageFilter value: (OrderedCollection with:lastPackage).
+browser navigationState packageFilter value: (OrderedCollection with:lastPackage).
-	browser navigationState selectedProjects value: (OrderedCollection with:lastPackage).
+browser navigationState selectedProjects value: (OrderedCollection with:lastPackage).
 ].
 self withWaitCursorDo:[
-	browser browseMenuMethodsWithString
+browser
+askForMethodAndSpawnSearchTitle:'String to Search for in Sources:'
+browserLabel:'Methods containing "%1"'
+searchWith:#( #'findString:in:ignoreCase:match:' #'findString:inMethods:ignoreCase:match:' )
+searchWhat:#string
+searchArea:#currentPackage
+withCaseIgnore:false
+withTextEntry:false
+withMatch:true
+withMethodList:false
+setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
+brwsr autoSearchPattern:string ignoreCase:ignoreCase.
+]
+initialText:selectedKey "/ does not work: ('''*',selectedKey,'*''') check match!!
 ].
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'menus dynamic'!
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'private-key extraction'!
 addAllTranslations:newTranslations
+"merge found xlations into the list of already present xlations"
 |newTranslationKeys stringKeys nonStringKeys|
 newTranslationKeys := newTranslations select:[:k | k notEmptyOrNil and:[k isString not or:[k isBlank not]]].
 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
-newTranslationKeys := newTranslationKeys
+"/ follow the common-xlations algrithm of ResourcePack
-collect:[:k |
+"/ (which knows how to xlate strings with additional special chars.)
-(k endsWith:' ...') ifTrue:[
+newTranslationKeys :=
-k copyButLast:4.
+newTranslationKeys collect:[:oldKey |
-] ifFalse:[(k endsWith:'...') ifTrue:[
+|newKey methods|
-k copyButLast:3.
-] ifFalse:[
+(oldKey endsWith:' ...') ifTrue:[
-('\.:?=,!! ' includes:k last) ifTrue:[
+newKey := oldKey copyButLast:4.
-k copyButLast:1.
+] ifFalse:[ (oldKey endsWith:'...') ifTrue:[
-] ifFalse:[
+newKey := oldKey copyButLast:3.
-k
+] ifFalse:[ ('\.:?=,!! ' includes:oldKey last) ifTrue:[
-]]]].
+newKey := oldKey copyButLast:1.
+] ifFalse:[ ((oldKey first == $() and:[ oldKey last == $) ]) ifTrue:[
+newKey := oldKey copyFrom:2 to:oldKey size - 1
+] ifFalse:[ ((oldKey first == $[) and:[ oldKey last == $] ]) ifTrue:[
+newKey := oldKey copyFrom:2 to:oldKey size - 1
+] ifFalse:[
+newKey :=oldKey
+]]]]].
+"/ must attach oldKey-methods to newKey
+methods := methodsUsingKey at:oldKey ifAbsent:nil.
+methods notNil ifTrue:[
+(methodsUsingKey at:newKey ifAbsentPut:[Set new]) addAll:methods
+].
+newKey
+].
 newTranslationKeys := newTranslationKeys asSet.
 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 newTranslationKeys notEmpty ifTrue:[
 stringKeys := newTranslationKeys select:[:k | k isString].
 "/ and all arguments to (resources string:) messages.
 aClass instAndClassMethodsDo:[:eachMethod |
 newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
 ].
 ].
-newTranslations := newTranslations select:[:eachTranslation|
-(aClass resources at:eachTranslation ifAbsent:nil) isNil
+newTranslations :=
-].
+newTranslations select:[:eachTranslation|
+(aClass resources at:eachTranslation ifAbsent:nil) isNil
+].
 ^ newTranslations
 !
 extractTranslationsFromHelpSpecMethod:aMethod
+"return strings which need translation from a help-spec method"
 |codeStrings matcher parseTree resourceKeys|
 parseTree := RBParser
 parseMethod:aMethod source
 onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
 aNode isReturn ifTrue:[
 "/ a ^ #(...)
 aNode value isLiteralArray ifTrue:[
 aNode value value pairWiseDo:[:helpKey :helpString |
+self rememberMethod:aMethod usingKey:helpString.
 resourceKeys add:helpString.
 ].
 ].
 ] ifFalse:[
 sel := aNode selector.
 (sel startsWith:'addPairsFrom:') ifTrue:[
 argNode := aNode arguments at:1.
-argNode isLiteral ifTrue:[
+argNode isLiteralArray ifTrue:[
 arg := argNode value.
-arg isArray ifTrue:[
+arg doWithIndex:[:el :index |
-arg doWithIndex:[:el :index |
+index even ifTrue:[
-index even ifTrue:[
+el isString ifTrue:[
-el isString ifTrue:[
+self rememberMethod:aMethod usingKey:el.
 resourceKeys add:el.
 ]
-].
 ].
-] ifFalse:[
-Transcript
-showCR:(resources
-string:'Cannot derive resourceKey from non-array in %1 in %2'
-with:argNode formattedCode
-with:aMethod selector).
 ].
 ] ifFalse:[
 Transcript halt
 showCR:(resources
-string:'Cannot derive resourceKey from non-literal: %1 in %2'
+string:'Cannot derive resourceKey from non-literal array: %1 in %2'
 with:argNode formattedCode
 with:aMethod selector).
 ].
 ].
 ].
 matcher executeTree: parseTree initialAnswer: nil.
 ^ resourceKeys
 !
 extractTranslationsFromMenuSpecMethod:aMethod
+"return strings which need translation from a menu-spec method"
 |menu resourceKeys|
 menu := aMethod mclass theNonMetaclass perform:aMethod selector.
 menu isNil ifTrue:[ ^ #() ].
 resourceKeys := Set new.
 menu allItemsDo:[:aMenuItem |
 aMenuItem translateLabel ifTrue:[
 (aMenuItem isSeparatorItem or:[aMenuItem isMenuSlice])  ifFalse:[
+self rememberMethod:aMethod usingKey:aMenuItem label.
 resourceKeys add:aMenuItem label.
 ]
 ]
 ].
 ^ resourceKeys
 !
 extractTranslationsFromMethod:aMethod
+"return strings which need translation from a method."
 |mResources|
 mResources := aMethod resources.
 mResources notNil ifTrue:[
 (mResources includesKey:#menu) ifTrue:[
 ].
 ^ self extractTranslationsFromMethodsCode:aMethod
 !
 extractTranslationsFromMethodsCode:aMethod
-"/method:mthd selector:sel inClass:cls matchesParseTreeMatcher:aMatcher
+"return strings which need translation from a normal method.
+detects messages to the resource translation mechanism"
 |codeStrings matcher parseTree resourceKeys|
 parseTree := RBParser
 parseMethod:aMethod source
 onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
 sel := aNode selector.
 ((sel startsWith:'string:') or:[(sel startsWith:'at:') or:[sel startsWith:'stringWithCRs:']]) ifTrue:[
 keyStringArgNode := aNode arguments at:1.
 (keyStringArg := self literalStringOrStringConcatenation:keyStringArgNode) notNil ifTrue:[
+self rememberMethod:aMethod usingKey:keyStringArg.
 resourceKeys add:keyStringArg.
 ] ifFalse:[
 Transcript
 showCR:(resources
 string:'[LanguageTranslator] warning: Cannot derive resourceKey from non-string: %1 in %2'
 extractTranslationsFromSpecMethod:aMethod
 ^ #()
 !
 extractTranslationsFromTableColumnsSpecMethod:aMethod
+"return strings which need translation from a table-spec method"
 |columnDescription resourceKeys|
 columnDescription := aMethod mclass theNonMetaclass perform:aMethod selector.
 columnDescription isNil ifTrue:[ ^ #() ].
 (columnDescription first isKindOf:DataSetColumnSpec) ifFalse:[
-	columnDescription := columnDescription collect:[:el | DataSetColumnSpec new fromLiteralArrayEncoding:el].
+columnDescription := columnDescription collect:[:el | DataSetColumnSpec new fromLiteralArrayEncoding:el].
 ].
 resourceKeys := Set new.
 columnDescription do:[:aColumnSpec |
-	aColumnSpec translateLabel ifTrue:[
+aColumnSpec translateLabel ifTrue:[
-	    resourceKeys add:aColumnSpec label.
+self rememberMethod:aMethod usingKey:aColumnSpec label.
-	]
+resourceKeys add:aColumnSpec label.
+]
 ].
 ^ resourceKeys
 !
 extractTranslationsFromUISpecMethod:aMethod
+"return strings which need translation from a UI-spec method"
 |spec resourceKeys visitor|
 spec := aMethod mclass theNonMetaclass perform:aMethod selector.
 spec isNil ifTrue:[ ^ #() ].
 (spec isKindOf:UISpecification) ifFalse:[
-	spec := UISpecification from:spec
+spec := UISpecification from:spec
 ].
 resourceKeys := Set new.
 visitor := UISpecVisitor new.
 spec acceptVisitor:visitor.
+visitor translatedLabels do:[:each |
+self rememberMethod:aMethod usingKey:each.
+].
 ^ visitor translatedLabels
 !
 literalStringOrStringConcatenation:aParseNode
 "nil if not a literal or a string concatenation"
 (leftString notNil and:[rightString notNil]) ifTrue:[
 ^ leftString , rightString
 ].
 ].
 ^ nil
+!
+recordNewTranslation:aString
+"called from recorder, when the monitored application does a translation"
+self addAllTranslations:{ aString }
+!
+rememberMethod:aMethod usingKey:aKey
+(methodsUsingKey at:aKey ifAbsentPut:[Set new]) add:aMethod
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'queries'!
 autoAccept
 languageEditor pasteOrReplace:previousLanguageText.
 self languageTextModifiedHolder value:true.
 !
 search
+"make the searchbox visible"
 self searchBoxVisible value: true.
 self updateToolVisibility.
 searchTextView takeFocus.
 "Modified: / 16-06-2007 / 11:58:44 / Administrador"
 !InternationalLanguageTranslationEditor::AccessCollectingPseudoResourcePack methodsFor:'accessing'!
 realResourcePack:something
 realResourcePack := something.
+!
+watchingTranslationEditor:something
+watchingTranslationEditor := something.
+! !
+!InternationalLanguageTranslationEditor::AccessCollectingPseudoResourcePack methodsFor:'resource pack protocol'!
+forwardFor:aString
+collectedKeys isNil ifTrue:[
+collectedKeys := Set new.
+].
+collectedKeys add:aString.
+watchingTranslationEditor notNil ifTrue:[
+watchingTranslationEditor recordNewTranslation:aString.
+].
+^ realResourcePack perform:(thisContext sender selector) withArguments:(thisContext sender args).
+!
+string:aString
+^ self forwardFor:aString
 ! !
 !InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings class methodsFor:'instance creation'!
 new

changeset 3286	1ea9a6fbe2b4
parent 3285	5b8697869e72
child 3312	84084dd13f11