hg/stx-libtool2: comparison Tools__InternationalLanguageTranslationEditor.st

equal deleted inserted replaced

-:fda84ae10fee
+:2a319ce12319
 "Created: / 04-03-2006 / 09:07:19 / cg"
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'help spec'!
-flyByHelpSpec
+helpSpec
 <resource: #help>
-^ super flyByHelpSpec addPairsFrom:#(
+^ super helpSpec 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'!
 Tools::InternationalLanguageTranslationEditor open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
-label: 'InternationalLanguageTranslationEditor'
+	 label: 'InternationalLanguageTranslationEditor'
-name: 'InternationalLanguageTranslationEditor'
+	 name: 'InternationalLanguageTranslationEditor'
-min: (Point 10 10)
+	 min: (Point 10 10)
-bounds: (Rectangle 0 0 774 610)
+	 bounds: (Rectangle 0 0 774 610)
-menu: mainMenu
+	 menu: mainMenu
 )
 component:
 (SpecCollection
-collection: (
+	 collection: (
-(MenuPanelSpec
+	  (MenuPanelSpec
-name: 'ToolBar'
+	     name: 'ToolBar'
-layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+	     layout: (LayoutFrame 0 0 0 0 0 1 30 0)
-menu: menuToolBar
+	     menu: menuToolBar
-textDefault: true
+	     textDefault: true
-)
+	   )
-(VariableVerticalPanelSpec
+	  (VariableVerticalPanelSpec
-name: 'TranslationsVariableVerticalPanel'
+	     name: 'TranslationsVariableVerticalPanel'
-layout: (LayoutFrame 0 0 30 0 0 1 -32 1)
+	     layout: (LayoutFrame 0 0 30 0 0 1 -32 1)
-component:
+	     component:
-(SpecCollection
+	    (SpecCollection
-collection: (
+	       collection: (
-(DataSetSpec
+		(DataSetSpec
-name: 'KeyStringAndLanguageSelectionTable'
+		   name: 'KeyStringAndLanguageSelectionTable'
-model: selectedKeyRow
+		   model: selectedKeyRow
-menu: keyStringAndLanguageSelectionTableMenu
+		   menu: keyStringAndLanguageSelectionTableMenu
-hasHorizontalScrollBar: true
+		   hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+		   hasVerticalScrollBar: true
-dataList: keyStringAndLanguageSelectionTable
+		   dataList: keyStringAndLanguageSelectionTable
-columnHolder: keyStringAndLanguageSelectionTableColumnDescriptionHolder
+		   columnHolder: keyStringAndLanguageSelectionTableColumnDescriptionHolder
-beDependentOfRows: true
+		   beDependentOfRows: true
-columnAdaptor: yourself
+		   columnAdaptor: yourself
-postBuildCallback: postBuildDataSet:
+		   postBuildCallback: postBuildDataSet:
-)
+		 )
-(VariableVerticalPanelSpec
+		(VariableVerticalPanelSpec
-name: 'VariableVerticalPanel1'
+		   name: 'VariableVerticalPanel1'
-component:
+		   component:
-(SpecCollection
+		  (SpecCollection
-collection: (
+		     collection: (
-(ViewSpec
+		      (ViewSpec
-name: 'Box1'
+			 name: 'Box1'
-component:
+			 component:
-(SpecCollection
+			(SpecCollection
-collection: (
+			   collection: (
-(LabelSpec
+			    (LabelSpec
-label: 'Original String (Key):'
+			       label: 'Original String (Key):'
-name: 'Label2'
+			       name: 'Label2'
-layout: (LayoutFrame 0 0 -2 0 0 1 28 0)
+			       layout: (LayoutFrame 0 0 -2 0 0 1 28 0)
-translateLabel: true
+			       translateLabel: true
-adjust: left
+			       adjust: left
-)
+			     )
-(TextEditorSpec
+			    (TextEditorSpec
-name: 'OriginalText'
+			       name: 'OriginalText'
-layout: (LayoutFrame 0 0 27 0 0 1 -2 1)
+			       layout: (LayoutFrame 0 0 27 0 0 1 -2 1)
-model: originalTextHolder
+			       model: originalTextHolder
-hasHorizontalScrollBar: true
+			       hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			       hasVerticalScrollBar: true
-modifiedChannel: originalTextModifiedHolder
+			       modifiedChannel: originalTextModifiedHolder
-acceptCallBack: languageTextAccepted
+			       acceptCallBack: languageTextAccepted
-hasKeyboardFocusInitially: false
+			       hasKeyboardFocusInitially: false
-)
+			     )
-)
+			    )
-)
+			 )
-)
+		       )
-(ViewSpec
+		      (ViewSpec
-name: 'Box3'
+			 name: 'Box3'
-component:
+			 component:
-(SpecCollection
+			(SpecCollection
-collection: (
+			   collection: (
-(LabelSpec
+			    (LabelSpec
-label: 'Select Another Language as example:'
+			       label: 'Select Another Language as example:'
-name: 'Label3'
+			       name: 'Label3'
-layout: (LayoutFrame 0 0 -6 0 0 1 24 0)
+			       layout: (LayoutFrame 0 0 -6 0 0 1 24 0)
-translateLabel: true
+			       translateLabel: true
-adjust: left
+			       adjust: left
-)
+			     )
-(ComboBoxSpec
+			    (ComboBoxSpec
-name: 'ComboBox1'
+			       name: 'ComboBox1'
-layout: (LayoutFrame 281 0 -2 0 406 0 18 0)
+			       layout: (LayoutFrame 281 0 -2 0 406 0 18 0)
-model: exampleLanguageSelectionHolder
+			       model: exampleLanguageSelectionHolder
-immediateAccept: false
+			       immediateAccept: false
-acceptOnLeave: true
+			       acceptOnLeave: true
-acceptOnLostFocus: true
+			       acceptOnLostFocus: true
-acceptOnPointerLeave: false
+			       acceptOnPointerLeave: false
-comboList: shownLanguages
+			       comboList: shownLanguages
-useIndex: false
+			       useIndex: false
-)
+			     )
-(TextEditorSpec
+			    (TextEditorSpec
-name: 'ExampleLanguageText'
+			       name: 'ExampleLanguageText'
-layout: (LayoutFrame 0 0 30 0 0 1 0 1)
+			       layout: (LayoutFrame 0 0 30 0 0 1 0 1)
-model: exampleLanguageTextHolder
+			       model: exampleLanguageTextHolder
-hasHorizontalScrollBar: true
+			       hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			       hasVerticalScrollBar: true
-isReadOnly: true
+			       isReadOnly: true
-hasKeyboardFocusInitially: false
+			       hasKeyboardFocusInitially: false
-)
+			     )
-)
+			    )
-)
+			 )
-)
+		       )
-(ViewSpec
+		      (ViewSpec
-name: 'Box2'
+			 name: 'Box2'
-component:
+			 component:
-(SpecCollection
+			(SpecCollection
-collection: (
+			   collection: (
-(LabelSpec
+			    (LabelSpec
-label: 'Translated String:'
+			       label: 'Translated String:'
-name: 'Label1'
+			       name: 'Label1'
-layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+			       layout: (LayoutFrame 0 0 0 0 0 1 30 0)
-translateLabel: true
+			       translateLabel: true
-adjust: left
+			       adjust: left
-)
+			     )
-(TextEditorSpec
+			    (TextEditorSpec
-name: 'LanguageText'
+			       name: 'LanguageText'
-layout: (LayoutFrame 0 0 30 0 0 1 0 1)
+			       layout: (LayoutFrame 0 0 30 0 0 1 0 1)
-model: languageTextHolder
+			       model: languageTextHolder
-hasHorizontalScrollBar: true
+			       hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			       hasVerticalScrollBar: true
-acceptChannel: languageTextAcceptHolder
+			       acceptChannel: languageTextAcceptHolder
-modifiedChannel: languageTextModifiedHolder
+			       modifiedChannel: languageTextModifiedHolder
-acceptCallBack: languageTextAccepted
+			       acceptCallBack: languageTextAccepted
-hasKeyboardFocusInitially: false
+			       hasKeyboardFocusInitially: false
-postBuildCallback: languageEditorBuilt:
+			       postBuildCallback: languageEditorBuilt:
-)
+			     )
-(ActionButtonSpec
+			    (ActionButtonSpec
-label: 'Paste Previous'
+			       label: 'Paste Previous'
-name: 'pastePreviousTranslation'
+			       name: 'pastePreviousTranslation'
-layout: (LayoutOrigin 0 0.83085250338295003 0 0.034482758620689995)
+			       layout: (LayoutOrigin 0 0.83085250338295003 0 0.034482758620689995)
-translateLabel: true
+			       translateLabel: true
-model: pastePreviousTranslationInLanguageText
+			       model: pastePreviousTranslationInLanguageText
-enableChannel: pastePreviousTranslationEnableHolder
+			       enableChannel: pastePreviousTranslationEnableHolder
-disabledLogo: 'Paste Previous'
+			       disabledLogo: 'Paste Previous'
-)
+			     )
-(ActionButtonSpec
+			    (ActionButtonSpec
-label: 'Paste Original'
+			       label: 'Paste Original'
-name: 'Button1'
+			       name: 'Button1'
-layout: (LayoutOrigin -95 0.83085250338295003 0 0.034482758620689995)
+			       layout: (LayoutOrigin -95 0.83085250338295003 0 0.034482758620689995)
-translateLabel: true
+			       translateLabel: true
-model: pasteOriginalInLanguageText
+			       model: pasteOriginalInLanguageText
-enableChannel: pasteOriginalEnableHolder
+			       enableChannel: pasteOriginalEnableHolder
-disabledLogo: 'Paste Original'
+			       disabledLogo: 'Paste Original'
-)
+			     )
-)
+			    )
-)
+			 )
-)
+		       )
-)
+		      )
-)
+		   )
-handles: (Any 0.3333333333333301 0.66666666666667018 1.0)
+		   handles: (Any 0.3333333333333301 0.66666666666667018 1.0)
-)
+		 )
-)
+		)
-)
+	     )
-handles: (Any 0.5 1.0)
+	     handles: (Any 0.5 1.0)
-postBuildCallback: postBuildTranslationsPanel:
+	     postBuildCallback: postBuildTranslationsPanel:
-)
+	   )
-(ViewSpec
+	  (ViewSpec
-name: 'SearchBox'
+	     name: 'SearchBox'
-layout: (LayoutFrame 0 0 -32 1 0 1 0 1)
+	     layout: (LayoutFrame 0 0 -32 1 0 1 0 1)
-level: -1
+	     level: -1
-visibilityChannel: searchBoxVisible
+	     visibilityChannel: searchBoxVisible
-component:
+	     component:
-(SpecCollection
+	    (SpecCollection
-collection: (
+	       collection: (
-(ActionButtonSpec
+		(ActionButtonSpec
-label: 'closeSearchBarIcon'
+		   label: 'closeSearchBarIcon'
-name: 'closeSearchBarButton'
+		   name: 'closeSearchBarButton'
-layout: (LayoutFrame 4 0 5 0 25 0 26 0)
+		   layout: (LayoutFrame 4 0 5 0 25 0 26 0)
-hasCharacterOrientedLabel: false
+		   hasCharacterOrientedLabel: false
-translateLabel: true
+		   translateLabel: true
-model: closeSearchBar
+		   model: closeSearchBar
-)
+		 )
-(LabelSpec
+		(LabelSpec
-label: 'Search:'
+		   label: 'Search:'
-name: 'SearchLabel'
+		   name: 'SearchLabel'
-layout: (LayoutFrame 30 0 5 0 100 0 27 0)
+		   layout: (LayoutFrame 30 0 5 0 100 0 27 0)
-translateLabel: true
+		   translateLabel: true
-adjust: right
+		   adjust: right
-)
+		 )
-(InputFieldSpec
+		(InputFieldSpec
-name: 'SearchEntryField'
+		   name: 'SearchEntryField'
-layout: (LayoutFrame 100 0 5 0 257 0 27 0)
+		   layout: (LayoutFrame 100 0 5 0 257 0 27 0)
-model: searchTextHolder
+		   model: searchTextHolder
-immediateAccept: true
+		   immediateAccept: true
-acceptOnReturn: true
+		   acceptOnReturn: true
-acceptOnTab: true
+		   acceptOnTab: true
-acceptOnLostFocus: true
+		   acceptOnLostFocus: true
-modifiedChannel: searchTextModifiedHolder
+		   modifiedChannel: searchTextModifiedHolder
-acceptOnPointerLeave: false
+		   acceptOnPointerLeave: false
-postBuildCallback: postBuildSearchTextView:
+		   postBuildCallback: postBuildSearchTextView:
-)
+		 )
-(ActionButtonSpec
+		(ActionButtonSpec
-label: 'searchNextIcon'
+		   label: 'searchNextIcon'
-name: 'SearchNextButton'
+		   name: 'SearchNextButton'
-layout: (LayoutFrame 264 0 5 0 285 0 26 0)
+		   layout: (LayoutFrame 264 0 5 0 285 0 26 0)
-hasCharacterOrientedLabel: false
+		   hasCharacterOrientedLabel: false
-translateLabel: true
+		   translateLabel: true
-model: searchNextText
+		   model: searchNextText
-)
+		 )
-(ActionButtonSpec
+		(ActionButtonSpec
-label: 'searchPreviousIcon'
+		   label: 'searchPreviousIcon'
-name: 'searchPreviousButton'
+		   name: 'searchPreviousButton'
-layout: (LayoutFrame 292 0 5 0 313 0 26 0)
+		   layout: (LayoutFrame 292 0 5 0 313 0 26 0)
-hasCharacterOrientedLabel: false
+		   hasCharacterOrientedLabel: false
-translateLabel: true
+		   translateLabel: true
-model: searchPreviousText
+		   model: searchPreviousText
-)
+		 )
-(CheckBoxSpec
+		(CheckBoxSpec
-label: 'Ignore case'
+		   label: 'Ignore case'
-name: 'IgnoreCaseCheckBox'
+		   name: 'IgnoreCaseCheckBox'
-layout: (LayoutFrame 322 0 5 0 518 0 27 0)
+		   layout: (LayoutFrame 322 0 5 0 518 0 27 0)
-model: ignoreCaseHolder
+		   model: ignoreCaseHolder
-translateLabel: true
+		   translateLabel: true
-)
+		 )
-(LabelSpec
+		(LabelSpec
-label: 'SearchBarImageInfoLabel'
+		   label: 'SearchBarImageInfoLabel'
-name: 'SearchBarImageInfoLabel'
+		   name: 'SearchBarImageInfoLabel'
-layout: (LayoutFrame 524 0 5 0 548 0 27 0)
+		   layout: (LayoutFrame 524 0 5 0 548 0 27 0)
-hasCharacterOrientedLabel: false
+		   hasCharacterOrientedLabel: false
-translateLabel: true
+		   translateLabel: true
-labelChannel: searchBarImageInfoLabelHolder
+		   labelChannel: searchBarImageInfoLabelHolder
-)
+		 )
-(LabelSpec
+		(LabelSpec
-label: 'SearchBarInfoLabel'
+		   label: 'SearchBarInfoLabel'
-name: 'SearchBarInfoLabel'
+		   name: 'SearchBarInfoLabel'
-layout: (LayoutFrame 551 0 5 0 829 0 27 0)
+		   layout: (LayoutFrame 551 0 5 0 829 0 27 0)
-translateLabel: true
+		   translateLabel: true
-labelChannel: searchBarInfoLabelHolder
+		   labelChannel: searchBarInfoLabelHolder
-adjust: left
+		   adjust: left
-)
+		 )
-)
+		)
-)
+	     )
-postBuildCallback: postBuildSearchBoxView:
+	     postBuildCallback: postBuildSearchBoxView:
-)
+	   )
-)
+	  )
 )
 )
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'menu specs'!
 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor keyStringAndLanguageSelectionTableMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Browse Methods Containing this String'
+	    label: 'Browse Methods Containing this String'
-itemValue: browseReferringMethods
+	    itemValue: browseReferringMethods
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Set Current NameSpace...'
+	    label: 'Set Current NameSpace...'
-itemValue: changeLastNameSpace
+	    itemValue: changeLastNameSpace
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Search String in Current NameSpace'
+	    label: 'Search String in Current NameSpace'
-itemValue: searchStringInLastNameSpace
+	    itemValue: searchStringInLastNameSpace
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Set Current Package...'
+	    label: 'Set Current Package...'
-itemValue: changeLastPackage
+	    itemValue: changeLastPackage
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Search String in Current Package'
+	    label: 'Search String in Current Package'
-itemValue: searchStringInLastPackage
+	    itemValue: searchStringInLastPackage
-isVisible: false
+	    isVisible: false
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 mainMenu
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor mainMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'New'
+		  label: 'New'
-itemValue: menuNew
+		  itemValue: menuNew
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Open Resources for Package or Project...'
+		  label: 'Open Resources for Package or Project...'
-itemValue: menuOpenByPackage
+		  itemValue: menuOpenByPackage
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Open Resource File...'
+		  label: 'Open Resource File...'
-itemValue: menuOpen
+		  itemValue: menuOpen
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save All Resource Files'
+		  label: 'Save All Resource Files'
-itemValue: menuSaveAll
+		  itemValue: menuSaveAll
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save Resource File'
+		  label: 'Save Resource File'
-itemValue: menuSave
+		  itemValue: menuSave
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save Resource File As...'
+		  label: 'Save Resource File As...'
-itemValue: menuSaveAs
+		  itemValue: menuSaveAs
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Import existing translations from file...'
+		  label: 'Import existing translations from file...'
-itemValue: importExistingTranslationsFromFile
+		  itemValue: importExistingTranslationsFromFile
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Set Current NameSpace'
+		  label: 'Set Current NameSpace'
-itemValue: changeLastNameSpace
+		  itemValue: changeLastNameSpace
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Set Current Package'
+		  label: 'Set Current Package'
-itemValue: changeLastPackage
+		  itemValue: changeLastPackage
-isVisible: false
+		  isVisible: false
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Exit'
+		  label: 'Exit'
-itemValue: closeRequest
+		  itemValue: closeRequest
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Show Missing Translations Only'
+		  label: 'Show Missing Translations Only'
-indication: showMissingTranslationsOnly
+		  indication: showMissingTranslationsOnly
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Show Search Box'
+		  label: 'Show Search Box'
-indication: searchBoxVisible
+		  indication: searchBoxVisible
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Shown Languages'
+		  label: 'Shown Languages'
-submenuChannel: shownLanguagesMenu
+		  submenuChannel: shownLanguagesMenu
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Languages'
+	    label: 'Languages'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Add Language...'
+		  label: 'Add Language...'
-itemValue: addLanguage
+		  itemValue: addLanguage
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Remove Language...'
+		  label: 'Remove Language...'
-itemValue: removeLanguage
+		  itemValue: removeLanguage
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Translations'
+	    label: 'Translations'
-submenuChannel: translationsMenuSpec
+	    submenuChannel: translationsMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Preferences'
+	    label: 'Preferences'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Auto Accept Changes'
+		  label: 'Auto Accept Changes'
-indication: autoAcceptHolder
+		  indication: autoAcceptHolder
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Search For Similar Translations'
+		  label: 'Search For Similar Translations'
-indication: searchForSimilarTranslationEnableHolder
+		  indication: searchForSimilarTranslationEnableHolder
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Always Write UTF8'
+		  label: 'Always Write UTF8'
-indication: alwaysWriteUTF8Holder
+		  indication: alwaysWriteUTF8Holder
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'Help'
-startGroup: right
+	    startGroup: right
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Documentation'
+		  label: 'Documentation'
-itemValue: openDocumentation
+		  itemValue: openDocumentation
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'About this Application...'
+		  label: 'About this Application...'
-itemValue: openAboutThisApplication
+		  itemValue: openAboutThisApplication
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuItemsEditLanguage
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Save'
+	    label: 'Save'
-itemValue: menuSave
+	    itemValue: menuSave
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Add Translation'
+	    label: 'Add Translation'
-itemValue: addTranslation
+	    itemValue: addTranslation
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Remove Translation'
+	    label: 'Remove Translation'
-itemValue: removeTranslation
+	    itemValue: removeTranslation
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: browseReferringMethods
+	    activeHelpKey: browseReferringMethods
-label: 'Browse'
+	    label: 'Browse'
-itemValue: browseReferringMethods
+	    itemValue: browseReferringMethods
-labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowserIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowserIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Stop Application'
+	    label: 'Stop Application'
-itemValue: stopApplication
+	    itemValue: stopApplication
-isButton: true
+	    isButton: true
-isVisible: stopApplicationIconVisibleHolder
+	    isVisible: stopApplicationIconVisibleHolder
-labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: searchBox
+	    activeHelpKey: searchBox
-label: 'Search'
+	    label: 'Search'
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: searchBoxVisible
+	    indication: searchBoxVisible
-shortcutKey: Ctrlf
+	    shortcutKey: Ctrlf
-labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
+	    labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 translationsMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor translationsMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Add Translation...'
+	    label: 'Add Translation...'
-itemValue: addTranslation
+	    itemValue: addTranslation
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Remove Translation...'
+	    label: 'Remove Translation...'
-itemValue: removeTranslation
+	    itemValue: removeTranslation
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Extract from Package...'
+	    label: 'Extract from Package...'
-itemValue: extractTranslationsFromProject
+	    itemValue: extractTranslationsFromProject
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Extract from Class...'
+	    label: 'Extract from Class...'
-itemValue: extractTranslationsFromClass
+	    itemValue: extractTranslationsFromClass
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Extract from NameSpace...'
+	    label: 'Extract from NameSpace...'
-itemValue: extractTranslationsFromNameSpace
+	    itemValue: extractTranslationsFromNameSpace
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Run Application and Collect Translations...'
+	    label: 'Run Application and Collect Translations...'
-itemValue: runApplicationAndCollectTranslations
+	    itemValue: runApplicationAndCollectTranslations
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Generate Missing Translations'
+	    label: 'Generate Missing Translations'
-itemValue: generateMissingTranslations
+	    itemValue: generateMissingTranslations
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Generate Missing Translations Slice'
+	    label: 'Generate Missing Translations Slice'
-submenuChannel: menuSliceTranslateGenerate
+	    submenuChannel: menuSliceTranslateGenerate
-isMenuSlice: true
+	    isMenuSlice: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'startup'!
 |fn|
 fn := aFilename asFilename.
 ^ self new
-allButOpen;
+	allButOpen;
-readResourceFile:fn asLanguage:fn withoutSuffix baseName;
+	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
-openWindow;
+	openWindow;
-yourself.
+	yourself.
 !
 openOnPackage:aPackageId
 ^ self new
-allButOpen;
+	allButOpen;
-readResourceFileForPackage:aPackageId;
+	readResourceFileForPackage:aPackageId;
-openWindow;
+	openWindow;
-yourself.
+	yourself.
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
 keyTableColumn
 !
 newLanguageText
 "/   languageEditor accept
 ^self languageTextHolder value isEmptyOrNil
-ifTrue:['']
+	ifTrue:['']
-ifFalse:[self languageTextHolder value asCollectionOfLines first.]
+	ifFalse:[self languageTextHolder value asCollectionOfLines first.]
 !
 objectsList
 ^ keyStringsToLanguageMappings
 !
 searchBoxVisible
 searchBoxVisible isNil ifTrue:[
-searchBoxVisible := false asValue.
+	searchBoxVisible := false asValue.
-searchBoxVisible
+	searchBoxVisible
-onChangeEvaluate:[
+	    onChangeEvaluate:[
-self updateToolVisibility.
+		self updateToolVisibility.
-searchBoxVisible value ifTrue:[
+		searchBoxVisible value ifTrue:[
-searchTextView takeFocus.
+		    searchTextView takeFocus.
-].
+		].
-].
+	    ].
 ].
 ^ searchBoxVisible.
 "Created: / 15-06-2007 / 18:15:52 / Administrador"
 !
 updateOriginalTextModification
 |answer|
-self originalTextModifiedHolder value ifTrue:[
+	self originalTextModifiedHolder value ifTrue:[
-answer := OptionBox
+	    answer := OptionBox
-request:'Accept changed original text (key) ?'
+			  request:'Accept changed original text (key) ?'
-label:'Original text (key) changed'
+			  label:'Original text (key) changed'
-image:(WarningBox iconBitmap)
+			  image:(WarningBox iconBitmap)
-buttonLabels:#('Cancel' 'Accept' 'Accept As New')
+			  buttonLabels:#('Cancel' 'Accept' 'Accept As New')
-values:#(nil #accept #acceptAsNew)
+			  values:#(nil #accept #acceptAsNew)
-default:#acceptAsNew.
+			  default:#acceptAsNew.
-answer isNil ifTrue:[^ self originalTextModifiedHolder value:false. ].
+	    answer isNil ifTrue:[^ self originalTextModifiedHolder value:false. ].
-answer == #accept ifTrue:[
+	    answer == #accept ifTrue:[
 self shouldImplement.        ].
-answer == #acceptAsNew ifTrue:[
+	    answer == #acceptAsNew ifTrue:[
 self shouldImplement.        ].
-].
+	].
 !
 updatePasteOriginalButtonEnabled
 self pasteOriginalEnableHolder value: self shouldPasteOriginalButtonBeEnabled
 requestPackage
 |package allProjects projectsWithResources|
 allProjects := Smalltalk allPackageIDs.
 projectsWithResources := allProjects
-select:[:pID |
+				select:[:pID |
-|dir|
+				    |dir|
-dir := Smalltalk projectDirectoryForPackage:pID.
+				    dir := Smalltalk projectDirectoryForPackage:pID.
-dir notNil and:[
+				    dir notNil and:[
-(dir asFilename construct:'resources') exists]
+				    (dir asFilename construct:'resources') exists]
-].
+				].
 package := Dialog
-requestProject:(resources string:'Name of Package:')
+	requestProject:(resources string:'Name of Package:')
-from:projectsWithResources
+	from:projectsWithResources
-initialAnswer:LastProject
+	initialAnswer:LastProject
-suggestions:nil.
+	suggestions:nil.
 package isEmptyOrNil ifTrue:[^ nil ].
 LastProject := package.
 ^ package
 ! !
 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').
+	Dialog information:(resources stringWithCRs:'oops - no method remembered.\Please rerun the extract from XXX menu operation').
-^ self.
+	^ self.
 ].
 browser := UserPreferences systemBrowserClass browseMethods:methods.
 browser autoSearch:selectedKey ignoreCase:true.
 !
 changeLastNameSpace
 extractTranslationsFromProject
 |projectID newTranslations initialAnswer suggestions|
 initialAnswer := lastExtractedProject ? LastExtractedProject.
 suggestions := initialAnswer isNil ifTrue:[
-OrderedCollection new
+	OrderedCollection new
 ] ifFalse:[
-OrderedCollection with:initialAnswer
+	OrderedCollection with:initialAnswer
 ].
 projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:initialAnswer suggestions:suggestions.
 projectID notNil ifTrue:[
-projectID := projectID withoutSeparators asSymbol.
+	projectID := projectID withoutSeparators asSymbol.
 ].
 projectID isEmptyOrNil ifTrue:[^ self ].
 lastExtractedProject := LastExtractedProject := projectID.
 newTranslations := Set new.
 self withWaitCursorDo:[
-Smalltalk allClassesDo:[:eachClass |
+	Smalltalk allClassesDo:[:eachClass |
-eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
+	    eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
-eachMethod package == projectID ifTrue:[
+		eachMethod package == projectID ifTrue:[
-newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
+		    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
-]
+		]
-].
+	    ].
-].
+	].
-self addAllTranslations:newTranslations.
+	self addAllTranslations:newTranslations.
 ].
 "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 16-08-2017 / 12:29:21 / mawalch"
 !
 generateMissingTranslations: keys for: languages using: translator
 keys do:[:string |
-languages do:[:lang |
+	languages do:[:lang |
-| translation |
+	    | translation |
-translation := keyStringsToLanguageMappings at:string language:lang.
+	    translation := keyStringsToLanguageMappings at:string language:lang.
-translation isNil ifTrue:[
+	    translation isNil ifTrue:[
-translation := translator value: lang value: string.
+		translation := translator value: lang value: string.
-translation notNil ifTrue:[
+		translation notNil ifTrue:[
-keyStringsToLanguageMappings at: string language: lang put: translation.
+		    keyStringsToLanguageMappings at: string language: lang put: translation.
-].
+		].
-].
+	    ].
-].
+	].
 ].
 "Created: / 19-02-2015 / 12:31:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 generateMissingTranslationsFor: languages
 self
-generateMissingTranslations: keyStringsToLanguageMappings keys
+	generateMissingTranslations: keyStringsToLanguageMappings keys
-for: languages
+				for: languages
-using: [ :lang :string | '**%1** %2' bindWith: lang asUppercase with: string ]
+			      using: [ :lang :string | '**%1** %2' bindWith: lang asUppercase with: string ]
 "Created: / 19-02-2015 / 12:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 generateMissingTranslationsForAll
 |languagesToRemove|
 languagesToRemove := Dialog chooseMultiple:'Which language(s) do you want to remove?' fromList:languagesList lines:10.
 languagesToRemove isEmptyOrNil ifTrue:[^ self ].
 (Dialog confirm: 'Are you sure to remove the languages: ', languagesToRemove printString) ifTrue:[
-self languagesList removeAll:languagesToRemove.
+	  self languagesList removeAll:languagesToRemove.
-self shownLanguages removeAll:languagesToRemove.
+	  self shownLanguages removeAll:languagesToRemove.
 ].
 !
 removeTranslation
 |rowSelectionIndex selectedKey|
 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:[
-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 realResourcePack:(applicationClass classResources).
 pseudoPack watchingTranslationEditor:self.
 self stopApplicationIconVisibleHolder value:true.
 monitoredApplication :=
-[
+	[
-[
+	    [
-app := applicationClass new.
+		app := applicationClass new.
-app resources:pseudoPack.
+		app resources:pseudoPack.
-app perform:startSelector.
+		app perform:startSelector.
-app window waitUntilVisible.
+		app window waitUntilVisible.
-app window waitUntilClosed.
+		app window waitUntilClosed.
-] ensure:[
+	    ] ensure:[
-app closeRequest.
+		app closeRequest.
-self stopApplicationIconVisibleHolder value:false.
+		self stopApplicationIconVisibleHolder value:false.
-monitoredApplication := nil.
+		monitoredApplication := nil.
-].
+	    ].
-] fork.
+	] fork.
 !
 searchStringInLastNameSpace
 |selectedKey browser lastSearchPatterns|
 selectedKey := self selectedKey.
 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
+	browser
-askForMethodAndSpawnSearchTitle:'String to Search for in Sources:'
+	    askForMethodAndSpawnSearchTitle:'String to Search for in Sources:'
-browserLabel:'Methods containing "%1"'
+	    browserLabel:'Methods containing "%1"'
-searchWith:#( #'findString:in:ignoreCase:match:' #'findString:inMethods:ignoreCase:match:' )
+	    searchWith:#( #'findString:in:ignoreCase:match:' #'findString:inMethods:ignoreCase:match:' )
-searchWhat:#string
+	    searchWhat:#string
-searchArea:#currentPackage
+	    searchArea:#currentPackage
-withCaseIgnore:false
+	    withCaseIgnore:false
-withTextEntry:false
+	    withTextEntry:false
-withMatch:true
+	    withMatch:true
-withMethodList:false
+	    withMethodList:false
-setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
+	    setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
-brwsr autoSearchPattern:string ignoreCase:ignoreCase.
+				brwsr autoSearchPattern:string ignoreCase:ignoreCase.
-]
+			     ]
-initialText:selectedKey "/ does not work: ('''*',selectedKey,'*''') check match!!
+	    initialText:selectedKey "/ does not work: ('''*',selectedKey,'*''') check match!!
 ].
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'menus dynamic'!
 menuSliceTranslateGenerate
 | menu |
 menu := Menu new.
 keyStringsToLanguageMappings notNil ifTrue:[
-keyStringsToLanguageMappings languages do:[:lang |
+	keyStringsToLanguageMappings languages do:[:lang |
-menu addItem:
+	    menu addItem:
-(MenuItem
+		(MenuItem
-label: (resources string: 'Generate Missing Translations - %1' with: lang asUppercase)
+		    label: (resources string: 'Generate Missing Translations - %1' with: lang asUppercase)
-itemValue: [ self generateMissingTranslationsFor: (Array with: lang) ])
+		    itemValue: [ self generateMissingTranslationsFor: (Array with: lang) ])
-].
+	].
 ].
 ^ menu
 "Created: / 19-02-2015 / 12:44:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !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].
 "/ follow the common-xlations algrithm of ResourcePack
 "/ (which knows how to xlate strings with additional special chars.)
 newTranslationKeys :=
-newTranslationKeys collect:[:oldKey |
+	newTranslationKeys collect:[:oldKey |
-|newKey methods|
+	    |newKey methods|
-(oldKey endsWith:' ...') ifTrue:[
+	    (oldKey endsWith:' ...') ifTrue:[
-newKey := oldKey copyButLast:4.
+		newKey := oldKey copyButLast:4.
-] ifFalse:[ (oldKey endsWith:'...') ifTrue:[
+	    ] ifFalse:[ (oldKey endsWith:'...') ifTrue:[
-newKey := oldKey copyButLast:3.
+		newKey := oldKey copyButLast:3.
-] ifFalse:[ ('\.:?=,!! ' includes:oldKey last) ifTrue:[
+	    ] ifFalse:[ ('\.:?=,!! ' includes:oldKey last) ifTrue:[
-newKey := oldKey copyButLast:1.
+		newKey := oldKey copyButLast:1.
-] ifFalse:[ ((oldKey first == $() and:[ oldKey last == $) ]) ifTrue:[
+	    ] ifFalse:[ ((oldKey first == $() and:[ oldKey last == $) ]) ifTrue:[
-newKey := oldKey copyFrom:2 to:oldKey size - 1
+		newKey := oldKey copyFrom:2 to:oldKey size - 1
-] ifFalse:[ ((oldKey first == $[) and:[ oldKey last == $] ]) ifTrue:[
+	    ] ifFalse:[ ((oldKey first == $[) and:[ oldKey last == $] ]) ifTrue:[
-newKey := oldKey copyFrom:2 to:oldKey size - 1
+		newKey := oldKey copyFrom:2 to:oldKey size - 1
-] ifFalse:[
+	    ] ifFalse:[
-newKey :=oldKey
+		newKey :=oldKey
-]]]]].
+	    ]]]]].
-"/ must attach oldKey-methods to newKey
+	    "/ must attach oldKey-methods to newKey
-methods := methodsUsingKey at:oldKey ifAbsent:nil.
+	    methods := methodsUsingKey at:oldKey ifAbsent:nil.
-methods notNil ifTrue:[
+	    methods notNil ifTrue:[
-(methodsUsingKey at:newKey ifAbsentPut:[Set new]) addAll:methods
+		(methodsUsingKey at:newKey ifAbsentPut:[Set new]) addAll:methods
-].
+	    ].
-newKey
+	    newKey
-].
+	].
 newTranslationKeys := newTranslationKeys asSet.
 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 newTranslationKeys notEmpty ifTrue:[
-stringKeys := newTranslationKeys select:[:k | k isString].
+	stringKeys := newTranslationKeys select:[:k | k isString].
-nonStringKeys := newTranslationKeys select:[:k | k isString not].
+	nonStringKeys := newTranslationKeys select:[:k | k isString not].
-stringKeys := stringKeys asSortedCollection.
+	stringKeys := stringKeys asSortedCollection.
-keyStringsToLanguageMappings addKeys:stringKeys.
+	keyStringsToLanguageMappings addKeys:stringKeys.
-keyStringsToLanguageMappings addKeys:nonStringKeys.
+	keyStringsToLanguageMappings addKeys:nonStringKeys.
-modified := true.
+	modified := true.
 ].
 !
 extractTranslationsFromClass:aClass
 |newTranslations|
 newTranslations := Set new.
 self withWaitCursorDo:[
-"/ now, the hard part:
+	"/ now, the hard part:
-"/ possible translations are in the specs,
+	"/ possible translations are in the specs,
-"/ and all arguments to (resources string:) messages.
+	"/ and all arguments to (resources string:) messages.
-aClass instAndClassMethodsDo:[:eachMethod |
+	aClass instAndClassMethodsDo:[:eachMethod |
-newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
+	    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
-].
+	].
 ].
 newTranslations :=
-newTranslations select:[:eachTranslation|
+	newTranslations select:[:eachTranslation|
-(aClass resources at:eachTranslation ifAbsent:nil) isNil
+	    (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
+	    parseMethod:aMethod source
-onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
+	    onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
-nil].
+				  nil].
 parseTree isNil ifTrue:[^ #() ].
 codeStrings  :=
-#(
+	#(
-'`@dict addPairsFrom: `#helpKeysAndStrings'
+		'`@dict addPairsFrom: `#helpKeysAndStrings'
-'^ `#lit'
+		'^ `#lit'
-).
+	).
 resourceKeys := Set new.
 matcher := ParseTreeSearcher new.
 matcher
-matchesAnyOf: codeStrings
+	matchesAnyOf: codeStrings
-do: [:aNode :answer |
+	do: [:aNode :answer |
-|sel argNode arg|
+		|sel argNode arg|
-aNode isReturn ifTrue:[
+		aNode isReturn ifTrue:[
-"/ a ^ #(...)
+		    "/ a ^ #(...)
-aNode value isLiteralArray ifTrue:[
+		    aNode value isLiteralArray ifTrue:[
-aNode value value pairWiseDo:[:helpKey :helpString |
+			aNode value value pairWiseDo:[:helpKey :helpString |
-self rememberMethod:aMethod usingKey:helpString.
+			    self rememberMethod:aMethod usingKey:helpString.
-resourceKeys add:helpString.
+			    resourceKeys add:helpString.
-].
+			].
-].
+		    ].
-] ifFalse:[
+		] ifFalse:[
-sel := aNode selector.
+		    sel := aNode selector.
-(sel startsWith:'addPairsFrom:') ifTrue:[
+		    (sel startsWith:'addPairsFrom:') ifTrue:[
-argNode := aNode arguments at:1.
+			argNode := aNode arguments at:1.
-argNode isLiteralArray ifTrue:[
+			argNode isLiteralArray ifTrue:[
-arg := argNode value.
+			    arg := argNode value.
-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.
+					self rememberMethod:aMethod usingKey:el.
-resourceKeys add:el.
+					resourceKeys add:el.
-]
+				    ]
-].
+				].
-].
+			    ].
-] ifFalse:[
+			] ifFalse:[
-Transcript halt
+			    Transcript halt
-showCR:(resources
+				showCR:(resources
-string:'Cannot derive resourceKey from non-literal array: %1 in %2'
+					    string:'Cannot derive resourceKey from non-literal array: %1 in %2'
-with:argNode formattedCode
+					    with:argNode formattedCode
-with:aMethod selector).
+					    with:aMethod selector).
-].
+			].
-].
+		    ].
-].
+		].
-aNode
+		aNode
-].
+	    ].
 matcher executeTree: parseTree initialAnswer: nil.
 ^ resourceKeys
 !
 menu := aMethod mclass theNonMetaclass perform:aMethod selector.
 menu isNil ifTrue:[ ^ #() ].
 (menu isKindOf:Menu) ifFalse:[
-menu := Menu new fromLiteralArrayEncoding:menu
+	menu := Menu new fromLiteralArrayEncoding:menu
 ].
 resourceKeys := Set new.
 menu allItemsDo:[:aMenuItem |
-aMenuItem translateLabel ifTrue:[
+	aMenuItem translateLabel ifTrue:[
-(aMenuItem isSeparatorItem or:[aMenuItem isMenuSlice])  ifFalse:[
+	    (aMenuItem isSeparatorItem or:[aMenuItem isMenuSlice])  ifFalse:[
-self rememberMethod:aMethod usingKey:aMenuItem label.
+		self rememberMethod:aMethod usingKey:aMenuItem label.
-resourceKeys add: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:[
+	(mResources includesKey:#menu) ifTrue:[
-^ self extractTranslationsFromMenuSpecMethod:aMethod.
+	     ^ self extractTranslationsFromMenuSpecMethod:aMethod.
-].
+	].
-(mResources includesKey:#canvas) ifTrue:[
+	(mResources includesKey:#canvas) ifTrue:[
-^ self extractTranslationsFromUISpecMethod:aMethod.
+	     ^ self extractTranslationsFromUISpecMethod:aMethod.
-].
+	].
-(mResources includesKey:#help) ifTrue:[
+	(mResources includesKey:#help) ifTrue:[
-^ self extractTranslationsFromHelpSpecMethod:aMethod.
+	     ^ self extractTranslationsFromHelpSpecMethod:aMethod.
-].
+	].
-(mResources includesKey:#tableColumns) ifTrue:[
+	(mResources includesKey:#tableColumns) ifTrue:[
-^ self extractTranslationsFromTableColumnsSpecMethod:aMethod.
+	     ^ self extractTranslationsFromTableColumnsSpecMethod:aMethod.
-].
+	].
-^ self extractTranslationsFromSpecMethod:aMethod.
+	^ self extractTranslationsFromSpecMethod:aMethod.
 ].
 ^ self extractTranslationsFromMethodsCode:aMethod
 !
 extractTranslationsFromMethodsCode:aMethod
 detects messages to the resource translation mechanism"
 |codeStrings matcher parseTree resourceKeys|
 parseTree := RBParser
-parseMethod:aMethod source
+	    parseMethod:aMethod source
-onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
+	    onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
-nil].
+				  nil].
 parseTree isNil ifTrue:[^ #() ].
 codeStrings  :=
-#(
+	#(
-'resources `@msg: `@args'
+		'resources `@msg: `@args'
-'self resources `@msg: `@args'
+		'self resources `@msg: `@args'
-'self class resources `@msg: `@args'
+		'self class resources `@msg: `@args'
-'self class classResources `@msg: `@args'
+		'self class classResources `@msg: `@args'
-'self classResources `@msg: `@args'
+		'self classResources `@msg: `@args'
-'`V classResources `@msg: `@args'
+		'`V classResources `@msg: `@args'
-).
+	).
 resourceKeys := Set new.
 matcher := ParseTreeSearcher new.
 matcher
-matchesAnyOf: codeStrings
+	matchesAnyOf: codeStrings
-do: [:aNode :answer |
+	do: [:aNode :answer |
-|sel keyStringArgNode keyStringArg|
+		|sel keyStringArgNode keyStringArg|
-sel := aNode selector.
+		sel := aNode selector.
-((sel startsWith:'string:') or:[(sel startsWith:'at:') or:[sel startsWith:'stringWithCRs:']]) ifTrue:[
+		((sel startsWith:'string:') or:[(sel startsWith:'at:') or:[sel startsWith:'stringWithCRs:']]) ifTrue:[
-keyStringArgNode := aNode arguments at:1.
+		    keyStringArgNode := aNode arguments at:1.
-(keyStringArg := self literalStringOrStringConcatenation:keyStringArgNode) notNil ifTrue:[
+		    (keyStringArg := self literalStringOrStringConcatenation:keyStringArgNode) notNil ifTrue:[
-self rememberMethod:aMethod usingKey:keyStringArg.
+			self rememberMethod:aMethod usingKey:keyStringArg.
-resourceKeys add:keyStringArg.
+			resourceKeys add:keyStringArg.
-] ifFalse:[
+		    ] ifFalse:[
-Transcript
+			Transcript
-showCR:(resources
+			    showCR:(resources
-string:'[LanguageTranslator] warning: Cannot derive resourceKey from non-string: %1 in %2'
+				    string:'[LanguageTranslator] warning: Cannot derive resourceKey from non-string: %1 in %2'
-with:keyStringArgNode formattedCode
+				    with:keyStringArgNode formattedCode
-with:aMethod whoString).
+				    with:aMethod whoString).
-].
+		    ].
-].
+		].
-aNode
+		aNode
-].
+	    ].
 matcher executeTree: parseTree initialAnswer: nil.
 ^ resourceKeys
 "Modified: / 19-02-2015 / 11:42:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 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:[
-self rememberMethod:aMethod usingKey:aColumnSpec label.
+	    self rememberMethod:aMethod usingKey:aColumnSpec label.
-resourceKeys add: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.
+	self rememberMethod:aMethod usingKey:each.
 ].
 ^ visitor translatedLabels
 !
 literalStringOrStringConcatenation:aParseNode
 "nil if not a literal or a string concatenation"
 aParseNode isLiteralString ifTrue:[^ aParseNode value].
 (aParseNode isMessage and:[aParseNode selector == #,]) ifTrue:[
-|leftString rightString|
+	|leftString rightString|
-aParseNode receiver isLiteralString ifTrue:[
+	aParseNode receiver isLiteralString ifTrue:[
-leftString := aParseNode receiver value
+	    leftString := aParseNode receiver value
-] ifFalse:[
+	] ifFalse:[
-leftString := self literalStringOrStringConcatenation:aParseNode receiver.
+	    leftString := self literalStringOrStringConcatenation:aParseNode receiver.
-].
+	].
-aParseNode arguments first isLiteralString ifTrue:[
+	aParseNode arguments first isLiteralString ifTrue:[
-rightString := aParseNode arguments first value
+	    rightString := aParseNode arguments first value
-] ifFalse:[
+	] ifFalse:[
-rightString := self literalStringOrStringConcatenation:aParseNode arguments first.
+	    rightString := self literalStringOrStringConcatenation:aParseNode arguments first.
-].
+	].
-(leftString notNil and:[rightString notNil]) ifTrue:[
+	(leftString notNil and:[rightString notNil]) ifTrue:[
-^ leftString , rightString
+	    ^ 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
 !
 printEditingWarningOn: aStream
 aStream nextPutAll: ';';
-cr;
+	    cr;
-nextPutAll: '; WARNING:';
+	    nextPutAll: '; WARNING:';
-cr;
+	    cr;
-nextPutAll: '; this file contains national characters.';
+	    nextPutAll: '; this file contains national characters.';
-cr;
+	    cr;
-nextPutAll: '; DO NOT EDIT this file with an old vi!!';
+	    nextPutAll: '; DO NOT EDIT this file with an old vi!!';
-cr;
+	    cr;
-nextPutAll: ';';
+	    nextPutAll: ';';
-cr;
+	    cr;
-cr.
+	    cr.
 !
 printEncoderFor: lang on: aStream
 |characterEncoder encoderString|
 orderedAssociations := keyStringsToLanguageMappings orderedLanguageMappingsAssociationsFor: lang.
 maxKeySize := keyStringsToLanguageMappings maxKeySizeForLanguage: lang.
 orderedAssociations do:[:association |
-"use #basicStoreString to avoid implicit utf8Encoding for UnicodeStrings"
+	"use #basicStoreString to avoid implicit utf8Encoding for UnicodeStrings"
-aStream nextPutAll: ((characterEncoder encodeString:association key basicStoreString) paddedTo: maxKeySize) ;
+	aStream nextPutAll: ((characterEncoder encodeString:association key basicStoreString) paddedTo: maxKeySize) ;
-tab;
+	    tab;
-nextPutAll: (characterEncoder encodeString: association value basicStoreString);
+	    nextPutAll: (characterEncoder encodeString: association value basicStoreString);
-cr.
+	    cr.
-].
+	].
 !
 readResourceFile:aFilename asLanguage:lang
 |resourcePack inStream lineString encoding decoder sortedKeys remainingKeys|
 aFilename exists ifFalse:[
-Dialog information:(resources string:'Language file: "%1" does not exist' with:aFilename baseName).
+	Dialog information:(resources string:'Language file: "%1" does not exist' with:aFilename baseName).
-^ self
+	^ self
 ].
 resourcePack := ResourcePack new.
 inStream := aFilename readStream.
 [inStream atEnd] whileFalse:[
-lineString := inStream nextLine.
+	lineString := inStream nextLine.
-(lineString notEmpty
+	(lineString notEmpty
-and:[ (lineString startsWith:';') not and:[ (lineString startsWith:'"/') not]]) ifTrue:[
+	and:[ (lineString startsWith:';') not and:[ (lineString startsWith:'"/') not]]) ifTrue:[
-((lineString startsWith:'#') and:[(lineString startsWith:'#(') not]) ifTrue:[
+	    ((lineString startsWith:'#') and:[(lineString startsWith:'#(') not]) ifTrue:[
-lineString := (lineString copyFrom:2) withoutSeparators.
+		lineString := (lineString copyFrom:2) withoutSeparators.
-(lineString startsWith:'encoding ') ifTrue:[
+		(lineString startsWith:'encoding ') ifTrue:[
-encoding := ResourcePack extractEncodingFromLine:lineString.
+		    encoding := ResourcePack extractEncodingFromLine:lineString.
-decoder := CharacterEncoder encoderFor:encoding ifAbsent:nil.
+		    decoder := CharacterEncoder encoderFor:encoding ifAbsent:nil.
-].
+		].
-] ifFalse:[
+	    ] ifFalse:[
-ResourcePack
+		ResourcePack
-processResourceLine:lineString
+		    processResourceLine:lineString
-encoding:decoder
+		    encoding:decoder
-file:aFilename pathName
+		    file:aFilename pathName
-printErrorWith:[:msg | Transcript showCR:msg ]
+		    printErrorWith:[:msg | Transcript showCR:msg ]
-for:resourcePack
+		    for:resourcePack
-keepUselessTranslations:true.
+		    keepUselessTranslations:true.
-].
+	    ].
-].
+	].
 ].
 inStream close.
 sortedKeys := (resourcePack keys select:[:k | k isString]) asSortedCollection.
 remainingKeys := resourcePack keys select:[:k | k isString not].
 keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
 keyStringsToLanguageMappings atLanguage: lang putEncoder: decoder.
 sortedKeys do:[:k |
-keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
+	keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
 ].
 remainingKeys do:[:k |
-keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
+	keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
 ].
 keyStringsToLanguageMappings changed.
 !
 saveLanguage: lang
 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:'resource pack protocol'!
 forwardFor:aString
 collectedKeys isNil ifTrue:[
-collectedKeys := Set new.
+	collectedKeys := Set new.
 ].
 collectedKeys add:aString.
 watchingTranslationEditor notNil ifTrue:[
-watchingTranslationEditor recordNewTranslation:aString.
+	watchingTranslationEditor recordNewTranslation:aString.
 ].
 ^ realResourcePack perform:(thisContext sender selector) withArguments:(thisContext sender args).
 !
 string:aString
 ^self languages select:[:each | (self atLanguage: each) notEmpty]
 !
 orderedLanguageMappingsAssociationsFor: language
 "Returns a collection of languageMappings associations (alphabetically ordered by keys) "
 ^(self atLanguage: language) associations
-asSortedCollection:[:a :b | a key isArray or:[b key isArray or:[a key < b key]]].
+	    asSortedCollection:[:a :b | a key isArray or:[b key isArray or:[a key < b key]]].
 !
 perLanguageInfo
 ^ perLanguageInfo
 !
 |similarAssociations|
 similarAssociations:=
 (self mappingAtLanguage: language) associationsSelect:[:each |
-|eachKey|
+	|eachKey|
-eachKey := eachKey.
+	eachKey := eachKey.
-eachKey isString
+	eachKey isString
-and:[(eachKey sameAs: aKey)
+	and:[(eachKey sameAs: aKey)
-or:[(aKey asUppercase startsWith: eachKey asUppercase)
+	     or:[(aKey asUppercase startsWith: eachKey asUppercase)
-or:[((eachKey asUppercase levenshteinTo: aKey asUppercase)/ eachKey size) < 0.3
+	     or:[((eachKey asUppercase levenshteinTo: aKey asUppercase)/ eachKey size) < 0.3
-]]]
+	 ]]]
-and:[each value notEmptyOrNil]
+	 and:[each value notEmptyOrNil]
 ].
 ^similarAssociations
 ! !
 !InternationalLanguageTranslationEditor::LanguageMappingRow methodsFor:'accessing'!
 !
 version_CVS
 ^ '$Header$'
 ! !

changeset 3522	2a319ce12319
parent 3455	4ba13182f80f
child 3594	cfbc0a29b030