hg/stx-libtool2: comparison Tools__InternationalLanguageTranslationEditor.st

equal deleted inserted replaced

-:88fbe1703c31
+:6ad1f853d2e9
 documentation
 "
 documentation to be added.
 [author:]
-cg (cg@FUSI)
+	cg (cg@FUSI)
 [instance variables:]
 [class variables:]
 !
 examples
 "
 Starting the application:
-[exBegin]
+								[exBegin]
 InternationalLanguageTranslationEditor open
-[exEnd]
+								[exEnd]
 more examples to be added:
-[exBegin]
+								[exBegin]
 ... add code fragment for
 ... executable example here ...
-[exEnd]
+								[exEnd]
 "
 !
 history
 "Created: / 04-03-2006 / 09:07:19 / cg"
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class closeSearchBar'
+	constantNamed:#'Psiware::SystemManagement class closeSearchBar'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ\SD1LSD1LSD1LSD1LWGP@@@@@@
 @ATGA@HA@PDA@PDA@PHDA1T@@@@@@@@TAENG!!(VB XA?_''57QPPT@@@@@@@@E NJ^V)&X%)UTT5IV7 KE @@@@@@@A A"7Q,#&9VS%^MQ$E<DQ @@@@@@@@Z
 @X%-#9NRX52R$80:^1@Z@@@@@@@@F0FHY6>R$9JR$9ION''(PF0@@@@@@@A<A 5ABT)FS$9D=KR13C1<@@@@@@@@)@WUCND*Q$9NQM"T!!XP8)@@@@@@@@K E2
 O4RQ$9FQ$9@2G%8JK @@@@@@@CLA\S2D$9D9M)BS]!!1]BSL@@@@@@@@7@W@5LXP6J2\2]"P"VP 7@@@@@@@@O U+R3@*I2T#HA0&N5 RO @@@@@@@D LPF%(
 YVQ W59]VU 4CD @@@@@@@AGFP4F@PDA@PDA@PDFCQ%G@@@@@@@@K41TUEQTUEQTUEQTUEQLK0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class restartSearchBarIcon'
+	constantNamed:#'Psiware::SystemManagement class restartSearchBarIcon'
-ifAbsentPut:[(Depth24Image new) width: 20; height: 20; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth24Image new) width: 20; height: 20; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@?>SX?>''V?>;)?>O!!?>G]?>WY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=3\:[>''5;JF/Y-.+XY),(U.
 6JZK?=J1?>V<>.+I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>?'':+:!!19]U6*-Q?]Y/?>RC?>*!!?>F_>+=939UL2Y!!L>MJT??W[@@@@@@@@@@@@@@@@@@@@
 @@@@??[-=\^&1IEP=<Q[?>1/?=5$?=52?>NT?=^Q?>BP?>FG>;1]6JEO8;^H?]3I@@@@@@@@@@@@@@@@@@@@?\*95Y-)<+!!$??.F?>)17+-U8,E40Y-.09I)
 :Z1-?=I??=)8?<1.>K597;NL??K,@@@@@@@@@@@@?=#M6I>B>+:@?>2U=,]]5[IN7,^C5LB[<MWL?]#O=,BZ7)=\>;Y[??FP?=>O1YEW8<B$;=WH@@@@@@@@
 >,"%8Z:A?>N#?>._5KA$9-JW7=+FX6M+V%U3"''*T0Y>V4ZA7595T=;1"?=&D?=&L,W(93IU\:KE9=LBG9[Q9;K1<?=^R:K591*-6??''[@@@@RE%37>7?=?/?
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class searchNextIcon'
+	constantNamed:#'Psiware::SystemManagement class searchNextIcon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@
 @@@@@@AFF XA@PXUQ @@@@@@@@@@@@@@@@@*@Q5G^WX6E0D*@@@@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@A[@U==\F-"VUQOUSLAV0@@@@@@@@@@
 G19-D <NCP0KB!!@7D1<@@@@@@@@@  ]MT5JY&Y&Y&Y%RLR4G  @@@@@@@H\A WL $)&Y&Y&RF35B@X\@@@@@@@BK@XA1WA"X&Y&XE#T:P@FK@@@@@@@@# !!H
 ]F$<II&YH3H>N2 H# @@@@@@@@@''GG)*Y2$9NRIDO4DQHP@@@@@@@@@@!!@EP[6U]I"UIQTL.@XP@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@@@@EDA
 FSQ!!VC@T@UD@@@@@@@@@@@@@@@@@#R,I@PDIJ84@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class searchPreviousIcon'
+	constantNamed:#'Psiware::SystemManagement class searchPreviousIcon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@
 @@@@@@BMJ0$A@P$+#P@@@@@@@@@@@@@@@@AQ@Q$4XU 0E@EQ@@@@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@BD@UA/YU4&IT%EP28A!!@@@@@@@@@@@
 I11:Z&\)NS$"QC=ADRD@@@@@@@@@# !!H]F$<II&YH3H>N2 H# @@@@@@@H,A GE\FI"Y&Y VMS)@@X,@@@@@@@BG@XE3HIJY&Y&Y$!!,=P FG@@@@@@@@  ]M
 T5JY&Y&Y&Y%RLR4G  @@@@@@@@@_G&4RC08MC@,JDC\SG0@@@@@@@@@@V0E__WA+X%%TS5T3@U,@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@@@@B(A
 GT]9]#XW@R(@@@@@@@@@@@@@@@@@Q!!(F@PDFETX@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class searchToolBarIcon'
+	constantNamed:#'Psiware::SystemManagement class searchToolBarIcon'
-ifAbsentPut:[(Depth24Image new) width: 22; height: 22; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth24Image new) width: 22; height: 22; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>4][>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@;>#8/L#+!!:KS!!:KS/,'',;>''9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2];>^)WH
 NE:+KU*:J5&9NE6*_I#K4^S>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>RV3DLER"SWR6$K#0#;[.SGJ4L5"''UG_N4][>@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'Psiware::SystemManagement class warningSearchBarIcon'
+	constantNamed:#'Psiware::SystemManagement class warningSearchBarIcon'
-ifAbsentPut:[(Depth24Image new) width: 22; height: 19; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth24Image new) width: 22; height: 19; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?:.+<Y"P??C\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>_;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@?]SZ)5]X.6!! -HM2??''*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>39-7*B4H&G>[N+%%MJ>\#A@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<+R?*U1&?=CN?>W^4HJ@+FY$?>+"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@?>G_)U!!^>Z^->,B><+"4?*^-%C8?;;Z+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@??#1-(E;.65+?<#H
 ?=_T?=GP?::65W-=(EQF?>WQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?\#D*VAY?;61<;"0;,C@6J^+;*"0>ZN$&CX)6(-:@@@@@@@@
 Tools::InternationalLanguageTranslationEditor open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	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:
+	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
-)
+			      )
-)
+			     )
-)
+			  )
-)
+			)
-(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 197 0 -2 0 322 0 18 0)
+				layout: (LayoutFrame 197 0 -2 0 322 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
-)
+			      )
-)
+			     )
-)
+			  )
-)
+			)
-(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
-postBuildCallback: languageEditorBuilt:
+				postBuildCallback: languageEditorBuilt:
-)
+			      )
-(ActionButtonSpec
+			     (ActionButtonSpec
-label: 'Paste Previous'
+				label: 'Paste Previous'
-name: 'pastePreviousTranslation'
+				name: 'pastePreviousTranslation'
-layout: (LayoutOrigin 0 0.83085250338295 0 0.03448275862069)
+				layout: (LayoutOrigin 0 0.83085250338295 0 0.03448275862069)
-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.83085250338295 0 0.03448275862069)
+				layout: (LayoutOrigin -95 0.83085250338295 0 0.03448275862069)
-translateLabel: true
+				translateLabel: true
-model: pasteOriginalInLanguageText
+				model: pasteOriginalInLanguageText
-enableChannel: pasteOriginalEnableHolder
+				enableChannel: pasteOriginalEnableHolder
-disabledLogo: 'Paste Original'
+				disabledLogo: 'Paste Original'
-)
+			      )
-)
+			     )
-)
+			  )
-)
+			)
-)
+		       )
-)
+		    )
-handles: (Any 0.33333333333333 0.66666666666667 1.0)
+		    handles: (Any 0.33333333333333 0.66666666666667 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 81 0 27 0)
+		    layout: (LayoutFrame 30 0 5 0 81 0 27 0)
-translateLabel: true
+		    translateLabel: true
-adjust: right
+		    adjust: right
-)
+		  )
-(InputFieldSpec
+		 (InputFieldSpec
-name: 'SearchEntryField'
+		    name: 'SearchEntryField'
-layout: (LayoutFrame 87 0 5 0 244 0 27 0)
+		    layout: (LayoutFrame 87 0 5 0 244 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 251 0 5 0 272 0 26 0)
+		    layout: (LayoutFrame 251 0 5 0 272 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 279 0 5 0 300 0 26 0)
+		    layout: (LayoutFrame 279 0 5 0 300 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 309 0 5 0 505 0 27 0)
+		    layout: (LayoutFrame 309 0 5 0 505 0 27 0)
-model: ignoreCaseHolder
+		    model: ignoreCaseHolder
-translateLabel: true
+		    translateLabel: true
-)
+		  )
-(LabelSpec
+		 (LabelSpec
-label: 'SearchBarImageInfoLabel'
+		    label: 'SearchBarImageInfoLabel'
-name: 'SearchBarImageInfoLabel'
+		    name: 'SearchBarImageInfoLabel'
-layout: (LayoutFrame 511 0 5 0 535 0 27 0)
+		    layout: (LayoutFrame 511 0 5 0 535 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 538 0 5 0 816 0 27 0)
+		    layout: (LayoutFrame 538 0 5 0 816 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: 'Set Current NameSpace'
+	    label: 'Set Current NameSpace'
-itemValue: changeLastNameSpace
+	    itemValue: changeLastNameSpace
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Search String in Current NameSpace'
+	    label: 'Search String in Current NameSpace'
-itemValue: searchStringInLastNameSpace
+	    itemValue: searchStringInLastNameSpace
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: #false
+	    isVisible: #false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Set Current Package'
+	    label: 'Set Current Package'
-itemValue: changeLastPackage
+	    itemValue: changeLastPackage
-translateLabel: true
+	    translateLabel: true
-isVisible: #false
+	    isVisible: #false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Search String in Current Package'
+	    label: 'Search String in Current Package'
-itemValue: searchStringInLastPackage
+	    itemValue: searchStringInLastPackage
-translateLabel: true
+	    translateLabel: true
-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'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'New'
+		  label: 'New'
-itemValue: menuNew
+		  itemValue: menuNew
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Open Resources for Package or Project...'
+		  label: 'Open Resources for Package or Project...'
-itemValue: menuOpenByPackage
+		  itemValue: menuOpenByPackage
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Open Resource File...'
+		  label: 'Open Resource File...'
-itemValue: menuOpen
+		  itemValue: menuOpen
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save All Resource Files'
+		  label: 'Save All Resource Files'
-itemValue: menuSaveAll
+		  itemValue: menuSaveAll
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save Resource File'
+		  label: 'Save Resource File'
-itemValue: menuSave
+		  itemValue: menuSave
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Save Resource File As...'
+		  label: 'Save Resource File As...'
-itemValue: menuSaveAs
+		  itemValue: menuSaveAs
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Import existing translations from file...'
+		  label: 'Import existing translations from file...'
-itemValue: importExistingTranslationsFromFile
+		  itemValue: importExistingTranslationsFromFile
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Set Current NameSpace'
+		  label: 'Set Current NameSpace'
-itemValue: changeLastNameSpace
+		  itemValue: changeLastNameSpace
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Set Current Package'
+		  label: 'Set Current Package'
-itemValue: changeLastPackage
+		  itemValue: changeLastPackage
-translateLabel: true
+		  translateLabel: true
-isVisible: #false
+		  isVisible: #false
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Exit'
+		  label: 'Exit'
-itemValue: closeRequest
+		  itemValue: closeRequest
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Show Missing Translations Only'
+		  label: 'Show Missing Translations Only'
-translateLabel: true
+		  translateLabel: true
-indication: showMissingTranslationsOnly
+		  indication: showMissingTranslationsOnly
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Shown Languages'
+		  label: 'Shown Languages'
-translateLabel: true
+		  translateLabel: true
-submenuChannel: shownLanguagesMenu
+		  submenuChannel: shownLanguagesMenu
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Languages'
+	    label: 'Languages'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Add Language...'
+		  label: 'Add Language...'
-itemValue: addLanguage
+		  itemValue: addLanguage
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Remove Language...'
+		  label: 'Remove Language...'
-itemValue: removeLanguage
+		  itemValue: removeLanguage
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Translations'
+	    label: 'Translations'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Add Translation...'
+		  label: 'Add Translation...'
-itemValue: addTranslation
+		  itemValue: addTranslation
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Remove Translation...'
+		  label: 'Remove Translation...'
-itemValue: removeTranslation
+		  itemValue: removeTranslation
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Extract from Class...'
+		  label: 'Extract from Class...'
-itemValue: extractTranslationsFromClass
+		  itemValue: extractTranslationsFromClass
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Extract from Project...'
+		  label: 'Extract from Project...'
-itemValue: extractTranslationsFromProject
+		  itemValue: extractTranslationsFromProject
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Extract from NameSpace...'
+		  label: 'Extract from NameSpace...'
-itemValue: extractTranslationsFromNameSpace
+		  itemValue: extractTranslationsFromNameSpace
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Run Application and Collect Translations...'
+		  label: 'Run Application and Collect Translations...'
-itemValue: runApplicationAndCollectTranslations
+		  itemValue: runApplicationAndCollectTranslations
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Preferences'
+	    label: 'Preferences'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Auto Accept Changes'
+		  label: 'Auto Accept Changes'
-translateLabel: true
+		  translateLabel: true
-indication: autoAcceptHolder
+		  indication: autoAcceptHolder
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Search For Similar Translations'
+		  label: 'Search For Similar Translations'
-translateLabel: true
+		  translateLabel: true
-indication: searchForSimilarTranslationEnableHolder
+		  indication: searchForSimilarTranslationEnableHolder
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Always Write UTF8'
+		  label: 'Always Write UTF8'
-translateLabel: true
+		  translateLabel: true
-indication: alwaysWriteUTF8Holder
+		  indication: alwaysWriteUTF8Holder
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'Help'
-translateLabel: true
+	    translateLabel: true
-startGroup: right
+	    startGroup: right
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Documentation'
+		  label: 'Documentation'
-itemValue: openDocumentation
+		  itemValue: openDocumentation
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'About this Application...'
+		  label: 'About this Application...'
-itemValue: openAboutThisApplication
+		  itemValue: openAboutThisApplication
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuItemsEditLanguage
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: pastePreviousTranslationEnableHolder
+	    enabled: pastePreviousTranslationEnableHolder
-label: 'Paste Previous Translation'
+	    label: 'Paste Previous Translation'
-itemValue: pastePreviousTranslationInLanguageText
+	    itemValue: pastePreviousTranslationInLanguageText
-nameKey: pastePreviousTranslationInLanguageText
+	    nameKey: pastePreviousTranslationInLanguageText
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuToolBar
 "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
-translateLabel: true
+	    translateLabel: 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
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Remove Translation'
+	    label: 'Remove Translation'
-itemValue: removeTranslation
+	    itemValue: removeTranslation
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Search'
+	    label: 'Search'
-itemValue: search
+	    itemValue: search
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Ctrlf
+	    shortcutKey: Ctrlf
-labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
+	    labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Stop Application'
+	    label: 'Stop Application'
-itemValue: stopApplication
+	    itemValue: stopApplication
-translateLabel: true
+	    translateLabel: true
-isVisible: stopApplicationIconVisibleHolder
+	    isVisible: stopApplicationIconVisibleHolder
-labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
-)
+	  )
-)
+	 )
-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.
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
 keyTableColumn
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
-label: 'Key'
+	 label: 'Key'
-labelButtonType: Button
+	 labelButtonType: Button
-minWidth: 50
+	 minWidth: 50
-model: keyStringInRow:
+	 model: keyStringInRow:
 )
 )
 !
 languageTableColumn
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
-label: lang
+	 label: lang
-labelButtonType: Button
+	 labelButtonType: Button
-minWidth: 50
+	 minWidth: 50
-editorType: None
+	 editorType: None
-model: columnInRow:at:
+	 model: columnInRow:at:
-backgroundSelector: getBackgroundForRow:rowNr:col:
+	 backgroundSelector: getBackgroundForRow:rowNr:col:
 )
 )
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'accessing'!
 currentSelectionIndex
 ^ self selectedKeyRow value
 "Created: / 16-06-2007 / 09:04:11 / Administrador"
 "Modified: / 19-06-2007 / 17:28:38 / Administrador"
 "Created: / 19-06-2007 / 16:39:44 / Administrador"
 !
 newLanguageText
 "/   languageEditor accept
 ^self languageTextHolder value isNil
-ifTrue:['']
+	ifTrue:['']
-ifFalse:[self languageTextHolder value asCollectionOfLines first.]
+	ifFalse:[self languageTextHolder value asCollectionOfLines first.]
 !
 objectsList
 ^ keyStringsToLanguageMappings
 !
 selectListIndex: rowIndex
 "/    |selection list|
 "/    list := self objectsList.
 "Created: / 16-06-2007 / 09:06:46 / Administrador"
 "Modified: / 22-06-2007 / 13:45:54 / Administrador"
 !
 selectedKey
 "Returns the current selected key if there is one row seleted. Otherwise, returns nil"
 |rowSelectionIndex |
 keyStringsToLanguageMappings isNil ifTrue:[^nil].
 self selectedKeyRow value isNil ifTrue:[^nil].
 searchForSimilarTranslation
 "Looks for a quite similar translation for the key and display a dialog with available options"
 |similarTranslationsAssociations selectedTranslation key|
 self shouldSearchForSimilarTranslation ifFalse:[^self].
 key := self selectedKey.
 key isNil ifTrue:[^ self.].
 similarTranslationsAssociations := keyStringsToLanguageMappings searchForSimilarTranslation: key in: self currentLanguage.
 similarTranslationsAssociations isEmpty ifTrue:[^self].
 similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association |
-collection detect:[:selectedAssociation |
+	collection detect:[:selectedAssociation |
-selectedAssociation value sameAs: association value] ifNone:[collection add: association].
+	    selectedAssociation value sameAs: association value] ifNone:[collection add: association].
-collection].
+	collection].
 selectedTranslation := Dialog
-choose:'Choose one if you consider it�s usefull to translate:
+	choose:'Choose one if you consider it�s usefull to translate:
 ',
-'<', key, '>  ', (self currentExampleLanguageText ifNil:[''])
+	'<', key, '>  ', (self currentExampleLanguageText ifNil:[''])
-fromList: (similarTranslationsAssociations collect:[:each |  '<', each key, '>  ', each value])
+	fromList: (similarTranslationsAssociations collect:[:each |  '<', each key, '>  ', each value])
-values: (similarTranslationsAssociations collect:[:each | each value])
+	values: (similarTranslationsAssociations collect:[:each | each value])
-lines:10
+	lines:10
-cancel: nil.
+	cancel: nil.
 selectedTranslation notNil ifTrue:[self languageTextHolderValue: selectedTranslation].
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'aspects'!
 alwaysWriteUTF8Holder
 alwaysWriteUTF8Holder isNil ifTrue:[alwaysWriteUTF8Holder := true asValue].
 ^ alwaysWriteUTF8Holder
 !
 autoAcceptHolder
 autoAcceptHolder isNil ifTrue:[autoAcceptHolder := true asValue].
 ^ autoAcceptHolder
 !
 exampleLanguageSelectionHolder
 exampleLanguageSelectionHolder isNil ifTrue:[
-exampleLanguageSelectionHolder := self exampleLanguageByDefault asValue.
+	exampleLanguageSelectionHolder := self exampleLanguageByDefault asValue.
-exampleLanguageSelectionHolder addDependent:self.
+	exampleLanguageSelectionHolder addDependent:self.
 ].
 ^ exampleLanguageSelectionHolder
 !
 exampleLanguageTextHolder
 exampleLanguageTextHolder isNil ifTrue:[
-exampleLanguageTextHolder := '' asValue.
+	exampleLanguageTextHolder := '' asValue.
 ].
 ^ exampleLanguageTextHolder.
 !
 ignoreCaseHolder
 ignoreCaseHolder isNil ifTrue:[
-ignoreCaseHolder := false asValue.
+	ignoreCaseHolder := false asValue.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       ignoreCaseHolder addDependent:self.
-ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self.
+	ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self.
 ].
 ^ ignoreCaseHolder.
 "Created: / 16-06-2007 / 06:45:04 / Administrador"
 "Modified: / 16-06-2007 / 19:32:15 / Administrador"
 !
 keyStringAndLanguageSelectionTable
 keyStringsToLanguageMappings isNil ifTrue:[
-keyStringsToLanguageMappings := KeyStringsToLanguageMappings new.
+	keyStringsToLanguageMappings := KeyStringsToLanguageMappings new.
 ].
 ^ keyStringsToLanguageMappings.
 !
 keyStringAndLanguageSelectionTableColumnDescriptionHolder
 keyStringAndLanguageSelectionTableColumnDescriptionHolder isNil ifTrue:[
-keyStringAndLanguageSelectionTableColumnDescriptionHolder := ValueHolder new.
+	keyStringAndLanguageSelectionTableColumnDescriptionHolder := ValueHolder new.
-keyStringAndLanguageSelectionTableColumnDescriptionHolder value:(self keyStringAndLanguageSelectionTableColumnDescription).
+	keyStringAndLanguageSelectionTableColumnDescriptionHolder value:(self keyStringAndLanguageSelectionTableColumnDescription).
 ].
 ^ keyStringAndLanguageSelectionTableColumnDescriptionHolder.
 !
 languageAtCol:colNr
 languageShownHolderFor:lang
 |holder|
 languageShownHolders isNil ifTrue:[
-languageShownHolders := Dictionary new
+	languageShownHolders := Dictionary new
 ].
 holder := languageShownHolders
-at:lang
+		at:lang
-ifAbsentPut:[
+		ifAbsentPut:[
-|h|
+		    |h|
-h := true asValue.
+		    h := true asValue.
-h onChangeEvaluate:[
+		    h onChangeEvaluate:[
-h value ifTrue:[
+			h value ifTrue:[
-self enableLanguageDisplayFor:lang
+			   self enableLanguageDisplayFor:lang
-] ifFalse:[
+			] ifFalse:[
-self disableLanguageDisplayFor:lang
+			   self disableLanguageDisplayFor:lang
-].
+			].
-].
+		    ].
-h
+		    h
-].
+		].
 ^ holder.
 !
 languageTextAcceptHolder
 languageTextAcceptHolder isNil ifTrue:[
-languageTextAcceptHolder := false asValue.
+	languageTextAcceptHolder := false asValue.
 ].
 ^ languageTextAcceptHolder.
 !
 languageTextHolder
 languageTextHolder isNil ifTrue:[
-languageTextHolder := '' asValue.
+	languageTextHolder := '' asValue.
 ].
 ^ languageTextHolder.
 !
 languageTextModifiedHolder
 languageTextModifiedHolder isNil ifTrue:[
-languageTextModifiedHolder := false asValue.
+	languageTextModifiedHolder := false asValue.
 ].
 ^ languageTextModifiedHolder.
 !
 languagesList
 languagesList isNil ifTrue:[
-languagesList := List withAll:(self keyStringAndLanguageSelectionTable languages).
+	languagesList := List withAll:(self keyStringAndLanguageSelectionTable languages).
 ].
 ^ languagesList.
 !
 originalTextHolder
 originalTextHolder isNil ifTrue:[
-originalTextHolder := '' asValue.
+	originalTextHolder := '' asValue.
 ].
 ^ originalTextHolder.
 !
 originalTextModifiedHolder
 originalTextModifiedHolder isNil ifTrue:[
-originalTextModifiedHolder := false asValue.
+	originalTextModifiedHolder := false asValue.
 ].
 ^ originalTextModifiedHolder.
 !
 pasteOriginalEnableHolder
 pasteOriginalEnableHolder isNil ifTrue:[pasteOriginalEnableHolder := false asValue].
 ^ pasteOriginalEnableHolder
 !
 pastePreviousTranslationEnableHolder
 pastePreviousTranslationEnableHolder isNil ifTrue:[pastePreviousTranslationEnableHolder := false asValue].
 ^ pastePreviousTranslationEnableHolder
 !
 searchBarImageInfoLabelHolder
 searchBarImageInfoLabelHolder isNil ifTrue:[
-searchBarImageInfoLabelHolder := nil asValue .
+	searchBarImageInfoLabelHolder := nil asValue .
 ].
 ^ searchBarImageInfoLabelHolder.
 "Created: / 16-06-2007 / 10:06:28 / Administrador"
 !
 searchBarInfoLabelHolder
 searchBarInfoLabelHolder isNil ifTrue:[
-searchBarInfoLabelHolder := '' asValue .
+	searchBarInfoLabelHolder := '' asValue .
 ].
 ^ searchBarInfoLabelHolder.
 "Created: / 16-06-2007 / 06:20:49 / Administrador"
 !
 searchBoxVisible
 searchBoxVisible isNil ifTrue:[
-searchBoxVisible := false asValue.
+	searchBoxVisible := false asValue.
 ].
 ^ searchBoxVisible.
 "Created: / 15-06-2007 / 18:15:52 / Administrador"
 !
 searchForSimilarTranslationEnableHolder
 searchForSimilarTranslationEnableHolder isNil
-ifTrue:[searchForSimilarTranslationEnableHolder := true asValue].
+	ifTrue:[searchForSimilarTranslationEnableHolder := true asValue].
 ^ searchForSimilarTranslationEnableHolder
 !
 searchTextHolder
 searchTextHolder isNil ifTrue:[
-searchTextHolder := ValueHolder new.
+	searchTextHolder := ValueHolder new.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       userSelectedHolder addDependent:self.
 "/       userSelectedHolder onChangeSend:#searchTextHolderChanged to:self.
 ].
 ^ searchTextHolder.
 !
 searchTextModifiedHolder
 searchTextModifiedHolder isNil ifTrue:[
-searchTextModifiedHolder := false asValue .
+	searchTextModifiedHolder := false asValue .
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       searchTextModifiedHolder addDependent:self.
 searchTextModifiedHolder onChangeSend:#searchTextModifiedHolderChanged to:self.
 ].
 ^ searchTextModifiedHolder.
 "Created: / 15-06-2007 / 18:07:19 / Administrador"
 !
 selectedKeyRow
 selectedKeyRow isNil ifTrue:[
-selectedKeyRow := ValueHolder new.
+	selectedKeyRow := ValueHolder new.
-selectedKeyRow onChangeSend:#selectionChanged to:self.
+	selectedKeyRow onChangeSend:#selectionChanged to:self.
 ].
 ^ selectedKeyRow.
 !
 showMissingTranslationsOnly
 showMissingTranslationsOnly isNil ifTrue:[
-showMissingTranslationsOnly := false asValue.
+	showMissingTranslationsOnly := false asValue.
-showMissingTranslationsOnly onChangeSend:#showMissingTranslationsOnlyChanged to:self.
+	showMissingTranslationsOnly onChangeSend:#showMissingTranslationsOnlyChanged to:self.
 ].
 ^ showMissingTranslationsOnly.
 !
 shownLanguages
 shownLanguages isNil ifTrue:[
-shownLanguages := List new.
+	shownLanguages := List new.
-shownLanguages addAll:(self languagesList).
+	shownLanguages addAll:(self languagesList).
-shownLanguages onChangeSend:#shownLanguagesChanged to:self.
+	shownLanguages onChangeSend:#shownLanguagesChanged to:self.
 ].
 ^ shownLanguages.
 !
 stopApplicationIconVisibleHolder
 stopApplicationIconVisibleHolder isNil ifTrue:[
-stopApplicationIconVisibleHolder := false asValue.
+	stopApplicationIconVisibleHolder := false asValue.
 ].
 ^ stopApplicationIconVisibleHolder.
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'change & update'!
 self languageTextModifiedHolder value:true.
 !
 update:something with:aParameter from:changedObject
 changedObject == shownLanguages ifTrue:[
-self shownLanguagesChanged.
+	 self shownLanguagesChanged.
-^ self.
+	 ^ self.
 ].
 changedObject == languageTextAcceptHolder ifTrue:[
-self updateLanguageTextModification.
+	 self updateLanguageTextModification.
-^ self.
+	 ^ self.
 ].
 changedObject == exampleLanguageSelectionHolder ifTrue:[
-self updateExampleLanguageText.
+	self updateExampleLanguageText.
-^ self.
+	^ self.
 ].
 changedObject == showMissingTranslationsOnly ifTrue:[
-self showMissingTranslationsOnlyChanged.
+	self showMissingTranslationsOnlyChanged.
-^ self.
+	^ self.
 ].
 !
 updateCopyPreviousTranslationButtonEnabled
 self pastePreviousTranslationEnableHolder value: self shouldCopyPreviousTranslationButtonBeEnabled
 self selectedKeyRow value isNil ifTrue:[^ self].
 self exampleLanguageTextHolder value:self currentExampleLanguageText
 !
 updateKeyStringsToLanguageMappings
 keyStringsToLanguageMappings
-at:lastSelectedKey
+	at:lastSelectedKey
-language:lastLanguage
+	language:lastLanguage
-put: self newLanguageText.
+	put: self newLanguageText.
 !
 updateLanguageAndKeySelection
 self originalTextHolder value: self selectedKey.
 self languageTextHolder value: (self languageTextFromSelectedKeyFor: self currentLanguage).
 lastLanguage := self currentLanguage.
 lastSelectedKey := self selectedKey.
 !
 updateLanguageTextModification
 self languageTextModifiedHolder value ifTrue:[
-(self autoAccept or:[Dialog confirm:'Accept changed translation ?']) ifTrue:[
+	(self autoAccept or:[Dialog confirm:'Accept changed translation ?']) ifTrue:[
-self languageTextModifiedHolder value:false.
+	    self languageTextModifiedHolder value:false.
-self languageTextHolder value:languageEditor contents.
+	    self languageTextHolder value:languageEditor contents.
-lastLanguage notNil ifTrue:[self updateKeyStringsToLanguageMappings.]
+	    lastLanguage notNil ifTrue:[self updateKeyStringsToLanguageMappings.]
-]
+	]
 ].
 !
 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 halt.        ].
-answer == #acceptAsNew ifTrue:[
+	    answer == #acceptAsNew ifTrue:[
 self halt.        ].
-].
+	].
 !
 updatePasteOriginalButtonEnabled
 self pasteOriginalEnableHolder value: self shouldPasteOriginalButtonBeEnabled
 val := '' asValue.
 box := Dialog new.
 (box addTextLabel:'Select or write the encoder') adjust:#left.
 box addVerticalSpace.
 characterCollection := CharacterEncoder supportedExternalEncodings
-inject: OrderedCollection new
+	inject: OrderedCollection new
-into:[:collection :each |
+	into:[:collection :each |
-collection add: each first;
+	    collection add: each first;
-yourself].
+			yourself].
 (box addComboBoxOn:val) list: characterCollection.
 box addOkButton.
 box open.
 ^val value
 !
 requestEncoderStringFor: lang
 "Returns an encoder string and updates the language's info"
 |encoderString encoder|
 encoderString := self requestEncoderDialog.
 encoderString notEmpty ifTrue:[
-encoder := CharacterEncoder encoderFor: encoderString ifAbsent:nil.
+	encoder := CharacterEncoder encoderFor: encoderString ifAbsent:nil.
-encoder notNil ifTrue:[keyStringsToLanguageMappings atLanguage: lang putEncoder: encoder.].
+	encoder notNil ifTrue:[keyStringsToLanguageMappings atLanguage: lang putEncoder: encoder.].
 ].
 ^encoderString
 !
 requestFilename
 |aFilename|
 aFilename := Dialog
-requestFileName:(resources string:'Name of resource file:')
+	requestFileName:(resources string:'Name of resource file:')
-default:nil
+	default:nil
-pattern:'*.rs'.
+	pattern:'*.rs'.
 aFilename isEmptyOrNil ifTrue:[^ nil ].
 ^aFilename asFilename
 !
 requestFilenameFor: lang
 "Returns a filename to save the language resource and updates the language's info"
 |aFilename|
 aFilename := Dialog
-requestFileName:(resources string:'Name of resource file to save %1:' with:lang asString)
+	requestFileName:(resources string:'Name of resource file to save %1:' with:lang asString)
-default:nil
+	default:nil
-pattern:'*.rs'.
+	pattern:'*.rs'.
 aFilename isEmptyOrNil ifTrue:[^ nil ].
 keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
 ^aFilename asFilename
 !
 requestLanguage
 ^ Dialog
-choose:(resources string:'For which language ?')
+	choose:(resources string:'For which language ?')
-fromList:languagesList
+	fromList:languagesList
-lines:10.
+	lines:10.
 !
 requestLanguageToSave
 ^ Dialog
-choose:'Which language do you want to save?'
+	choose:'Which language do you want to save?'
-fromList:languagesList
+	fromList:languagesList
-lines:10
+	lines:10
 !
 requestPackage
 |package allProjects projectsWithResources|
 allProjects := Smalltalk allProjectIDs.
 projectsWithResources := allProjects
-select:[:pID |
+				select:[:pID |
-|dir|
+				    |dir|
-dir := Smalltalk projectDirectoryForPackage:pID.
+				    dir := Smalltalk projectDirectoryForPackage:pID.
-(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
 ! !
 closeRequest
 "asks for permission before closing"
 self hasUnsavedChanges ifTrue:[
-(Dialog
+	(Dialog
-confirm:(resources string:'Close without saving ?')
+	    confirm:(resources string:'Close without saving ?')
-default:false) ifFalse:[
+	    default:false) ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 super closeRequest
 !
 |key index|
 key := Dialog request:'New Key:'.
 key isEmpty ifTrue:[^self].
 (self includesKey:key) ifFalse:[
-keyStringsToLanguageMappings addKey:key.
+	keyStringsToLanguageMappings addKey:key.
-modified := true.
+	modified := true.
 ].
 index := keyStringsToLanguageMappings indexOfKey:key.
 self selectedKeyRow value:index
 !
 lastNameSpace notNil ifTrue:[defaultNameSpace := lastNameSpace name].
 nameSpace := Dialog requestNameSpace:'NameSpace:' title:'Search String in Name Space:' initialAnswer:defaultNameSpace.
 nameSpace isNil ifTrue:[^self].
 nameSpace := Smalltalk at:nameSpace asSymbol.
 nameSpace isNil ifTrue:[
-^Dialog information:(resources string:'No such nameSpace exists.')
+	^Dialog information:(resources string:'No such nameSpace exists.')
 ].
 lastNameSpace := nameSpace.
 !
 changeLastPackage
 |package defaultPackage|
 lastPackage notNil ifTrue:[defaultPackage := lastPackage].
 package := Dialog
-requestProject:'Package:'
+	    requestProject:'Package:'
-initialAnswer:defaultPackage
+	    initialAnswer:defaultPackage
-suggestions:#('foo' 'bar' 'baz').
+	    suggestions:#('foo' 'bar' 'baz').
 package isNil ifTrue:[
-^ self "/ Dialog information:(resources string:'No such package exists.')
+	^ self "/ Dialog information:(resources string:'No such package exists.')
 ].
 lastPackage := package.
 !
 extractTranslationsFromClass
 |aClass newTranslations|
 aClass := Dialog
-requestClass:'Class to extract translations from:'
+		requestClass:'Class to extract translations from:'
-okLabel:'OK'
+		okLabel:'OK'
-initialAnswer:(lastExtractedClass ? LastExtractedClass).
+		initialAnswer:(lastExtractedClass ? LastExtractedClass).
 aClass isNil ifTrue:[^ self ].
 lastExtractedClass := LastExtractedClass := aClass.
 newTranslations := self extractTranslationsFromClass:aClass.
 self changeLastNameSpace.
 lastNameSpace isNil ifTrue:[^self.].
 newTranslations := OrderedCollection new.
 lastNameSpace allClassesDo:[:eachClass |
-newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
+	newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
 ].
 self addAllTranslations:newTranslations.
 !
 extractTranslationsFromProject
 box label:'Find Translations in Project'.
 box showAtPointer.
 projectID notNil ifTrue:[
-projectID := projectID withoutSeparators asSymbol.
+	projectID := projectID withoutSeparators asSymbol.
 ].
 projectID isEmptyOrNil ifTrue:[^ self ].
 lastExtractedProject := LastExtractedProject := projectID.
 newTranslations := Set new.
 Smalltalk allClassesDo:[:eachClass |
-eachClass theNonMetaclass package == projectID ifTrue:[
+	eachClass theNonMetaclass package == projectID ifTrue:[
 "/ eachClass isLoaded ifTrue:[ self halt. ].
-newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
+	    newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
-]
+	]
 ].
 self addAllTranslations:newTranslations.
 !
 missingStrings := OrderedCollection new.
 nameSpace := Dialog requestNameSpace:'NameSpace:' title:'Specify NameSpace to look for missing strings' initialAnswer:nil.
 nameSpace := Smalltalk at:nameSpace asSymbol.
 nameSpace isNil ifTrue:[
-^Dialog information:(resources string:'No such nameSpace exists.?')
+	^Dialog information:(resources string:'No such nameSpace exists.?')
 ].
 nameSpace allClassesDo:[:cls |
-cls theMetaclass methodsDo:[:m |
+	cls theMetaclass methodsDo:[:m |
-m hasResource ifTrue:[
+	    m hasResource ifTrue:[
-(m resources includesKey:#canvas) ifTrue:[
+		(m resources includesKey:#canvas) ifTrue:[
-spec := (cls perform:m selector) decodeAsLiteralArray.
+		    spec := (cls perform:m selector) decodeAsLiteralArray.
-spec do:[:eachComponent |
+		    spec do:[:eachComponent |
-eachComponent translationKeysDo:[:k |
+			eachComponent translationKeysDo:[:k |
-(self includesKey: k) ifFalse:[
+			    (self includesKey: k) ifFalse:[
-missingStrings add: k.
+				missingStrings add: k.
-Transcript showCR: k storeString, '                         ', m printString]]
+				Transcript showCR: k storeString, '                         ', m printString]]
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 missingStrings asSet inspect
 !
 menuNew
 modified ifTrue:[
-(Dialog
+	(Dialog
-confirm:(resources stringWithCRs:'Modified translations have not been changed.\\Create new translations set anyway ?')
+	    confirm:(resources stringWithCRs:'Modified translations have not been changed.\\Create new translations set anyway ?')
-default:false) ifFalse:[^ self].
+	    default:false) ifFalse:[^ self].
 ].
 keyStringsToLanguageMappings initialize.
 keyStringsToLanguageMappings changed.
 menuOpen
 |aFilename|
 self withWaitCursorDo:[
-aFilename := self requestFilename.
+	aFilename := self requestFilename.
-aFilename isNil ifTrue:[^ self ].
+	aFilename isNil ifTrue:[^ self ].
-self readResourceFile:aFilename.
+	self readResourceFile:aFilename.
 ]
 !
 menuOpenByPackage
 |package|
 self withWaitCursorDo:[
-package := self requestPackage.
+	package := self requestPackage.
-package isNil ifTrue:[^ self ].
+	package isNil ifTrue:[^ self ].
-self readResourceFileForPackage:package.
+	self readResourceFileForPackage:package.
 ]
 !
 menuSave
 "Saves the language selected in the fileName from where the language resource was obtained."
 self saveLanguage: lang
 !
 menuSaveAll
 "Saves all the languages in the fileName from where the language resource was obtained."
 keyStringsToLanguageMappings languagesInUse do:[:each | self saveLanguage: each].
 !
 menuSaveAs
 "Saves the language selected in the specified fileName."
 |lang aFilename|
 lang := self requestLanguageToSave.
 lang isNil ifTrue:[^ self].
 aFilename := self requestFilenameFor:lang.
 aFilename isNil ifTrue:[^ self].
 self saveResourceFile:aFilename for:lang asSymbol
 !
 packageDir := Smalltalk packageDirectoryForPackageId:aPackage.
 resourceDir := packageDir asFilename construct:'resources'.
 allLanguages := Set new.
 resourceDir directoryContentsAsFilenamesDo:[:eachFile |
-eachFile suffix = 'rs' ifTrue:[
+	eachFile suffix = 'rs' ifTrue:[
-(('##.rs' match:eachFile baseName)
+	    (('##.rs' match:eachFile baseName)
-or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[
+	    or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[
-allLanguages add:(eachFile withoutSuffix baseName)
+		allLanguages add:(eachFile withoutSuffix baseName)
-].
+	    ].
-].
+	].
 ].
 allLanguages addAll:languagesList.
 allLanguages := allLanguages asSortedCollection.
 lang := Dialog
-choose:(resources string:'For which language ?')
+	choose:(resources string:'For which language ?')
-fromList:allLanguages
+	fromList:allLanguages
-values:allLanguages
+	values:allLanguages
-buttons:(resources array:#('All'))
+	buttons:(resources array:#('All'))
-values:#(all)
+	values:#(all)
-lines:10
+	lines:10
-cancel:nil.
+	cancel:nil.
 lang isNil ifTrue:[^ self ].
 langFile := resourceDir construct:lang,'.rs'.
 lang == #all ifTrue:[
-allLanguages do:[:lang |
+	allLanguages do:[:lang |
-self addLanguage:lang.
+	    self addLanguage:lang.
-self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang.
+	    self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang.
-].
+	].
 ] ifFalse:[
-self readResourceFile:langFile asLanguage:lang asSymbol
+	self readResourceFile:langFile asLanguage:lang asSymbol
 ].
 !
 removeLanguage
 |lang|
 lang := Dialog choose:'Which language do you want to remove?' fromList:languagesList lines:10.
 lang isNil ifTrue:[^ self ].
 (Dialog confirm: 'Are you sure to remove the language ', lang ) ifTrue:[
-self languagesList remove:lang.
+	  self languagesList remove:lang.
-self shownLanguages remove:lang.
+	  self shownLanguages remove:lang.
 ].
 !
 removeTranslation
 |rowSelectionIndex selectedKey|
 rowSelectionIndex := self selectedKeyRow value.
 rowSelectionIndex isNil ifTrue:[^self].
 rowSelectionIndex ~~ 0 ifTrue:[
-selectedKey := keyStringsToLanguageMappings keyAt:rowSelectionIndex ifAbsent:nil.
+	selectedKey := keyStringsToLanguageMappings keyAt:rowSelectionIndex ifAbsent:nil.
-selectedKey isNil ifTrue:[^self].
+	selectedKey isNil ifTrue:[^self].
-(Dialog confirm:(resources string:'Really remove key %1' with:selectedKey)) ifTrue:[
+	(Dialog confirm:(resources string:'Really remove key %1' with:selectedKey)) ifTrue:[
-keyStringsToLanguageMappings removeKey:selectedKey.
+	    keyStringsToLanguageMappings removeKey: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).
 self stopApplicationIconVisibleHolder value:true.
 monitoredApplication := [
-[
+	[
-app := applicationClass new.
+	    app := applicationClass new.
-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.
 !
 searchStringInLastNameSpace
 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: #currentNameSpace.
 lastNameSpace isNil ifTrue:[
-self changeLastNameSpace.
+	self changeLastNameSpace.
 ].
 lastNameSpace notNil ifTrue:[
 "/        browser navigationState selectedClasses value: lastNameSpace allClasses.
-browser navigationState nameSpaceFilter value: (OrderedCollection with:lastNameSpace name).
+	browser navigationState nameSpaceFilter value: (OrderedCollection with:lastNameSpace name).
-browser navigationState selectedNamespaces value: (OrderedCollection with:lastNameSpace name).
+	browser navigationState selectedNamespaces value: (OrderedCollection with:lastNameSpace name).
 ].
 self withWaitCursorDo:[
-browser browseMenuMethodsWithString
+	browser browseMenuMethodsWithString
 ].
 !
 searchStringInLastPackage
 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 browseMenuMethodsWithString
 ].
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'menus dynamic'!
 (self shownLanguages includes:newLang) ifFalse:[
 "/        shownLanguagesInOrder := self languagesList
 "/                                    select:[:lang | (self shownLanguages includes:lang)
 "/                                                    or:[ lang = newLang ]].
 "/        self shownLanguages contents:shownLanguagesInOrder.
-self shownLanguages add:newLang.
+	self shownLanguages add:newLang.
 ]
 !
 isLanguageShown:lang
 ^ self shownLanguages includes:lang
 shownLanguagesMenu
 <resource: #programMenu >
 ^ [
-|m selected|
+	|m selected|
-m := Menu new.
+	m := Menu new.
-self languagesList do:[:lang |
+	self languagesList do:[:lang |
-|item|
+	    |item|
-item := MenuItem label:lang.
+	    item := MenuItem label:lang.
-item indication:(self languageShownHolderFor:lang).
+	    item indication:(self languageShownHolderFor:lang).
-item hideMenuOnActivated:false.
+	    item hideMenuOnActivated:false.
-m addItem:item.
+	    m addItem:item.
-].
+	].
-m
+	m
 ].
 !
 toggleLanguageDisplayFor:lang
 (self shownLanguages includes:lang) ifTrue:[
-self disableLanguageDisplayFor:lang
+	self disableLanguageDisplayFor:lang
 ] ifFalse:[
-self enableLanguageDisplayFor:lang
+	self enableLanguageDisplayFor:lang
 ].
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'private-key extraction'!
 addAllTranslations:newTranslations
 |newTranslationKeys stringKeys nonStringKeys|
 newTranslationKeys := newTranslations select:[:k | k notEmpty and:[k isString not or:[k isBlank not]]].
 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 newTranslationKeys := newTranslationKeys
-collect:[:k |
+				collect:[:k |
-(k endsWith:'...') ifTrue:[
+					(k endsWith:'...') ifTrue:[
-k copyWithoutLast:3.
+					    k copyWithoutLast:3.
-] ifFalse:[
+					] ifFalse:[
-('.:?' includes:k last) ifTrue:[
+					    ('.:?' includes:k last) ifTrue:[
-k copyWithoutLast:1.
+						k copyWithoutLast:1.
-] ifFalse:[
+					    ] ifFalse:[
-k
+						k
-]]].
+					]]].
 newTranslationKeys := newTranslationKeys asSet.
 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
 !
 extractTranslationsFromHelpSpecMethod:aMethod
 |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'
-).
+	).
 resourceKeys := Set new.
 matcher := ParseTreeSearcher new.
 matcher
-matchesAnyOf: codeStrings
+	matchesAnyOf: codeStrings
-do: [:aNode :answer |
+	do: [:aNode :answer |
-|sel argNode arg|
+		|sel argNode arg|
-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 isLiteral ifTrue:[
+		    argNode isLiteral ifTrue:[
-arg := argNode value.
+			arg := argNode value.
-arg isArray ifTrue:[
+			arg isArray ifTrue:[
-arg doWithIndex:[:el :index |
+			    arg doWithIndex:[:el :index |
-index even ifTrue:[
+				index even ifTrue:[
-el isString ifTrue:[
+				    el isString ifTrue:[
-resourceKeys add:el.
+					resourceKeys add:el.
-]
+				    ]
-].
+				].
-].
+			    ].
-] ifFalse:[
+			] ifFalse:[
-Transcript
+			    Transcript
-showCR:(resources
+				showCR:(resources
-string:'Cannot derive resourceKey from non-array in %1 in %2'
+					string:'Cannot derive resourceKey from non-array in %1 in %2'
-with:argNode formattedCode
+					with:argNode formattedCode
-with:aMethod selector).
+					with:aMethod selector).
-].
+			].
-] ifFalse:[
+		    ] ifFalse:[
-Transcript
+			Transcript
-showCR:(resources
+			    showCR:(resources
-string:'Cannot derive resourceKey from non-literal: %1 in %2'
+					string:'Cannot derive resourceKey from non-literal: %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 ifFalse:[
+	    aMenuItem isSeparatorItem ifFalse:[
-resourceKeys add:aMenuItem label.
+		resourceKeys add:aMenuItem label.
-]
+	    ]
-]
+	]
 ].
 ^ resourceKeys
 !
 extractTranslationsFromMethod:aMethod
 |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
 "/method:mthd selector:sel inClass:cls matchesParseTreeMatcher:aMatcher
 |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 classResources `@msg: `@args'
+		'self 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:')]) ifTrue:[
+		((sel startsWith:'string:') or:[(sel startsWith:'at:')]) ifTrue:[
-keyStringArgNode := aNode arguments at:1.
+		    keyStringArgNode := aNode arguments at:1.
-keyStringArgNode isLiteral ifTrue:[
+		    keyStringArgNode isLiteral ifTrue:[
-keyStringArg := keyStringArgNode value.
+			keyStringArg := keyStringArgNode value.
-keyStringArg isString ifTrue:[
+			keyStringArg isString ifTrue:[
-resourceKeys add:keyStringArg.
+			    resourceKeys add:keyStringArg.
-] ifFalse:[
+			] ifFalse:[
-Transcript
+			    Transcript
-showCR:(resources
+				showCR:(resources
-string:'Cannot derive resourceKey from non-string: %1 in %2'
+					string:'Cannot derive resourceKey from non-string: %1 in %2'
-with:keyStringArgNode formattedCode
+					with:keyStringArgNode formattedCode
-with:aMethod selector).
+					with:aMethod selector).
-].
+			].
-] ifFalse:[
+		    ] ifFalse:[
-Transcript
+			Transcript
-showCR:(resources
+			    showCR:(resources
-string:'Cannot derive resourceKey from non-literal: %1 in %2'
+					string:'Cannot derive resourceKey from non-literal: %1 in %2'
-with:keyStringArgNode formattedCode
+					with:keyStringArgNode formattedCode
-with:aMethod selector).
+					with:aMethod selector).
-].
+		    ].
-].
+		].
-aNode
+		aNode
-].
+	    ].
 matcher executeTree: parseTree initialAnswer: nil.
 ^ 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.
+	    resourceKeys add:aColumnSpec label.
-]
+	]
 ].
 ^ resourceKeys
 !
 extractTranslationsFromUISpecMethod:aMethod
 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.
 ^ visitor translatedLabels
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'queries'!
 autoAccept
 ^ self autoAcceptHolder value
 !
 currentExampleLanguageText
 "Returns the language text corresponding for the current selected key and the example language selection"
 ^self languageTextFromSelectedKeyFor: self exampleLanguageSelectionHolder value
 !
 !
 exampleLanguageByDefault
 ^self shownLanguages isEmpty
-ifTrue:[nil]
+	ifTrue:[nil]
-ifFalse:[self shownLanguages first]
+	ifFalse:[self shownLanguages first]
 !
 hasFirstRowSelection
 self selectedKeyRow isNil ifTrue:[^false].
 ^ self selectedKeyRow value > 1
 ^self searchForSimilarTranslationEnableHolder value
 !
 languageTextFromKey: aKeyIndex for: language
 "Returns the language text corresponding for the aKeyIndex and the received language"
 language isNil ifTrue:[^''].
 ^keyStringsToLanguageMappings at: aKeyIndex language:language.
 !
 languageTextFromSelectedKeyFor: language
 "Returns the language text corresponding for the current selected key and the received language"
 ^self languageTextFromKey: self selectedKey for: language
 !
 shouldCopyPreviousTranslationButtonBeEnabled
 ^ self hasLanguageSelection
-and:[self hasFirstRowSelection]
+	and:[self hasFirstRowSelection]
 !
 shouldPasteOriginalButtonBeEnabled
 ^ self hasLanguageSelection
-and:[self hasFirstRowSelection]
+	and:[self hasFirstRowSelection]
 !
 shouldSearchForSimilarTranslation
 self isSearchForSimilarTranslationEnabled ifFalse:[^false].
 !
 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: '; DONT EDIT this file with an old vi !!';
+	    nextPutAll: '; DONT EDIT this file with an old vi !!';
-cr;
+	    cr;
-nextPutAll: ';';
+	    nextPutAll: ';';
-cr;
+	    cr;
-cr.
+	    cr.
 !
 printEncoderFor: lang on: aStream
 |characterEncoder encoderString|
 characterEncoder := self encoderAt: lang.
 encoderString := characterEncoder isNil
-ifTrue:[self requestEncoderStringFor: lang]
+	ifTrue:[self requestEncoderStringFor: lang]
-ifFalse:[characterEncoder nameOfEncoding printString].
+	ifFalse:[characterEncoder nameOfEncoding printString].
 aStream nextPutAll: '#encoding';
-space;
+	    space;
-nextPutAll: encoderString;
+	    nextPutAll: encoderString;
-cr;
+	    cr;
-cr.
+	    cr.
 !
 printLanguage: lang on: aStream
 self printEncoderFor: lang on: aStream.
 self printLanguageMappingsFor: lang on: aStream.
 !
 printLanguageMappingsFor: lang on: aStream
 |orderedAssociations maxKeySize characterEncoder|
 characterEncoder := self encoderAt: lang.
 characterEncoder isNil ifTrue:[ characterEncoder := CharacterEncoder::NullEncoder ].
 orderedAssociations := keyStringsToLanguageMappings orderedLanguageMappingsAssociationsFor: lang.
 maxKeySize := keyStringsToLanguageMappings maxKeySizeForLanguage: lang.
 orderedAssociations do:[:association |
-aStream nextPutAll: (association key storeString paddedTo: maxKeySize) ;
+	aStream nextPutAll: (association key storeString paddedTo: maxKeySize) ;
-nextPutAll: (String new: 10);
+	    nextPutAll: (String new: 10);
-nextPutAll: (characterEncoder encodeString: association value) storeString;
+	    nextPutAll: (characterEncoder encodeString: association value) storeString;
-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 ]) ifTrue:[
+	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
 |aFilename|
 lang isNil ifTrue:[^ self].
 aFilename := keyStringsToLanguageMappings filenameAt:lang.
 aFilename isNil ifTrue:[
-aFilename := self requestFilenameFor: lang.
+	aFilename := self requestFilenameFor: lang.
-aFilename isNil ifTrue:[^ self].
+	aFilename isNil ifTrue:[^ self].
 ].
 self saveResourceFile:aFilename for:lang asSymbol
 !
 saveResourceFile: aFilename for: lang
 |aStream |
 keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
 aStream := FileStream newFileNamed: aFilename.
 self printLanguage: lang on: aStream.
 aStream flush;
-close.
+	    close.
 DialogBox information: 'The resource file for the language ', lang printString storeString, ' was saved in the file: ', aFilename nameString
 ! !
 !InternationalLanguageTranslationEditor methodsFor:'searching'!
 |searchText rowFoundIndex|
 searchText := searchTextView contents.
 searchText isEmptyOrNil ifTrue:[^self].
 self objectsList isEmpty ifTrue:[^self].
 rowFoundIndex := self tableView findFirstRowWithString: searchText
-from:1
+		from:1
-to:self objectsList size
+		to:self objectsList size
-ignoreCase:self ignoreCaseHolder value.
+		ignoreCase:self ignoreCaseHolder value.
 rowFoundIndex isNil ifTrue:[
-self searchTextNotFound.
+	self searchTextNotFound.
-^self
+	^self
 ].
 self selectListIndex: rowFoundIndex
 "Created: / 16-06-2007 / 10:54:51 / Administrador"
 "Modified: / 19-06-2007 / 15:38:59 / Administrador"
 searchText := searchTextView contents.
 searchText isEmptyOrNil ifTrue:[^self].
 self objectsList isEmpty ifTrue:[^self].
 currentSelectionIndex := self currentSelectionIndex.
 (currentSelectionIndex isNil or:[currentSelectionIndex == 0]) ifTrue:[
-self searchNextTextFromBeginning.
+	self searchNextTextFromBeginning.
-^self.
+	^self.
 ].
 listSize := self objectsList size.
 (currentSelectionIndex == listSize and:[includeCurrentSelection not]) ifTrue:[
-self searchNextTextReachEnd.
+	self searchNextTextReachEnd.
-^self.
+	^self.
 ].
 fromIndex := includeCurrentSelection
-ifTrue:[currentSelectionIndex]
+	ifTrue:[currentSelectionIndex]
-ifFalse:[currentSelectionIndex + 1].
+	ifFalse:[currentSelectionIndex + 1].
 rowFoundIndex := self tableView findFirstRowWithString: searchText
-from:fromIndex
+		from:fromIndex
-to:listSize
+		to:listSize
-ignoreCase:self ignoreCaseHolder value.
+		ignoreCase:self ignoreCaseHolder value.
 rowFoundIndex isNil ifTrue:[
-self searchNextTextReachEnd.
+	self searchNextTextReachEnd.
-^self
+	^self
 ].
 self selectListIndex: rowFoundIndex
 "Created: / 16-06-2007 / 09:20:57 / Administrador"
 "Modified: / 19-06-2007 / 15:38:06 / Administrador"
 searchText := searchTextView contents.
 searchText isEmptyOrNil ifTrue:[^self].
 self objectsList isEmpty ifTrue:[^self].
 currentSelectionIndex := self currentSelectionIndex.
 currentSelectionIndex == 1 ifTrue:[
-self searchPreviousTextReachBeginning.
+	self searchPreviousTextReachBeginning.
-^self.
+	^self.
 ].
 (currentSelectionIndex isNil or:[currentSelectionIndex == 0])
-ifTrue:[
+	ifTrue:[
-self searchPreviousTextFromEnd.
+	    self searchPreviousTextFromEnd.
-^self.
+	    ^self.
-]
+	]
-ifFalse:[fromIndex := currentSelectionIndex - 1].
+	ifFalse:[fromIndex := currentSelectionIndex - 1].
 rowFoundIndex := self tableView findFirstRowWithString: searchText
-from: fromIndex
+		from: fromIndex
-to: 1
+		to: 1
-by: -1
+		by: -1
-ignoreCase:self ignoreCaseHolder value.
+		ignoreCase:self ignoreCaseHolder value.
 rowFoundIndex isNil ifTrue:[
-self searchPreviousTextReachBeginning.
+	self searchPreviousTextReachBeginning.
-^self
+	^self
 ].
 self selectListIndex: rowFoundIndex.
 "Modified: / 19-06-2007 / 15:38:16 / Administrador"
 !
 |searchText rowFoundIndex|
 searchText := searchTextView contents.
 searchText isEmptyOrNil ifTrue:[^self].
 self objectsList isEmpty ifTrue:[^self].
 rowFoundIndex := self tableView findFirstRowWithString: searchText
-from: self objectsList size
+		from: self objectsList size
-to: 1
+		to: 1
-by: -1
+		by: -1
-ignoreCase:self ignoreCaseHolder value.
+		ignoreCase:self ignoreCaseHolder value.
 rowFoundIndex isNil ifTrue:[
-self searchTextNotFound.
+	self searchTextNotFound.
-^self
+	^self
 ].
 self selectListIndex: rowFoundIndex.
 "Created: / 16-06-2007 / 10:55:43 / Administrador"
 "Modified: / 19-06-2007 / 15:38:26 / Administrador"
 spec := OrderedCollection new.
 spec add:(self class keyTableColumn first).
 self shownLanguages do:[:lang |
-|entry|
+	|entry|
-entry := self class languageTableColumn first.
+	entry := self class languageTableColumn first.
-entry := entry copy replaceAll:#lang with:lang.
+	entry := entry copy replaceAll:#lang with:lang.
-spec add: entry
+	spec add: entry
 ].
 ^ spec
 !
 keyStringInRow:row
 bottomOffset := 0.
 searchBarVisible := self searchBoxVisible value.
 searchBarVisible ifTrue:[
-bottomOffset := bottomOffset - searchBoxView height.
+	bottomOffset := bottomOffset - searchBoxView height.
 ].
 translationsPanel layout bottomOffset:bottomOffset-1.
 translationsPanel container notNil ifTrue:[
-translationsPanel containerChangedSize.
+	translationsPanel containerChangedSize.
 ].
 "Created: / 16-06-2007 / 11:58:25 / Administrador"
 ! !
 exampleLanguageSelectionChanged
 self updateExampleLanguageText.
 !
 languageTextAccepted
 |nextRowIndex selRow|
 selRow := self selectedKeyRow value.
 selRow notNil ifTrue:[
-keyStringsToLanguageMappings size = selRow
+	keyStringsToLanguageMappings size = selRow
-ifTrue:[ self updateLanguageTextModification.]
+	    ifTrue:[ self updateLanguageTextModification.]
-ifFalse:[
+	    ifFalse:[
-nextRowIndex := selRow + 1.
+		nextRowIndex := selRow + 1.
-self selectedKeyRow value: nextRowIndex]
+		self selectedKeyRow value: nextRowIndex]
 ].
 !
 pasteOriginalInLanguageText
 <resource: #uiCallback>
 self languageTextModifiedHolder value:true.
 !
 pastePreviousTranslationInLanguageText
 "Obtain the text from the previous translation and paste it into the languageTextEditor"
 | previousLanguageText previousLanguageRow|
 previousLanguageRow := dataSetView at:self selectedKeyRow value - 1
-ifAbsent:[^self].
+		ifAbsent:[^self].
 previousLanguageText := previousLanguageRow atLanguage: self currentLanguage.
 languageEditor selectAll.
 languageEditor pasteOrReplace:previousLanguageText.
 self languageTextModifiedHolder value:true.
 !
 searchTextView takeFocus.
 "Modified: / 16-06-2007 / 11:58:44 / Administrador"
 !
 selectionChanged
 self updateOriginalTextModification.
 self updateLanguageTextModification.
 self updateLanguageAndKeySelection.
 self updateExampleLanguageText.
 showMissingTranslationsOnlyChanged
 !
 shownLanguagesChanged
 self keyStringAndLanguageSelectionTableColumnDescriptionHolder
-value:(self keyStringAndLanguageSelectionTableColumnDescription).
+	value:(self keyStringAndLanguageSelectionTableColumnDescription).
 !
 stopApplication
 |p|
 (p := monitoredApplication) notNil ifTrue:[
-p terminate.
+	p terminate.
 ].
 ! !
 !InternationalLanguageTranslationEditor::AccessCollectingPseudoResourcePack methodsFor:'accessing'!
 self addKey:aKey sendChange:true
 !
 addKey:aKey sendChange:aBoolean
 (keys includes:aKey) ifFalse:[
-keys add:aKey.
+	keys add:aKey.
-aBoolean ifTrue:[ self changed ].
+	aBoolean ifTrue:[ self changed ].
 ]
 !
 addKeys:aCollectionOfKey
 keys addAll:aCollectionOfKey.
 self changed.
 !
 addLanguage:lang
 (languages includes:lang) ifFalse:[
-languages add:lang.
+	languages add:lang.
-perLanguageMappings at:lang put:(OrderedDictionary new).
+	perLanguageMappings at:lang put:(OrderedDictionary new).
 ]
 !
 at:aKey language:language
 ^ (perLanguageMappings at:language) at:aKey ifAbsent:nil
 decoderKey
 ^#decoder
 !
 encoderAt:lang
 ^ (self languageInfoAt:lang) at: self encoderKey ifAbsent:[nil]
 !
 encoderKey
 ^#encoder
 fileNameKey
 ^ #filename
 !
 filenameAt:lang
 ^ (self languageInfoAt:lang) at: self fileNameKey ifAbsent:[nil]
 !
 keyAt:index
 ^ keys at:index ifAbsent:[nil].
 keys
 ^ keys
 !
 languageInfoAt: lang
 ^self perLanguageInfo at: lang ifAbsentPut:[Dictionary new]
 !
 languages
 !
 removeKey:aKey
 keys remove:aKey ifAbsent:[].
 perLanguageMappings do:[:eachMapping |
-eachMapping removeKey:aKey ifAbsent:[].
+	eachMapping removeKey:aKey ifAbsent:[].
 ].
 self changed.
 !
 rowForKey:aKey
 ^ rowPerKey
-at:aKey
+	    at:aKey
-ifAbsentPut:[InternationalLanguageTranslationEditor::LanguageMappingRow new
+	    ifAbsentPut:[InternationalLanguageTranslationEditor::LanguageMappingRow new
-key:aKey; mappings:self].
+			    key:aKey; mappings:self].
 !
 size
 ^ keys size
 ! !
 !InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'enumerating'!
 do:aBlock
 keys do:[:eachKey |
-aBlock value:(self rowForKey:eachKey).
+	aBlock value:(self rowForKey:eachKey).
 ].
 ! !
 !InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'initialization'!
 super initialize.
 keys := OrderedSet new.
 languages := OrderedCollection new.
 perLanguageMappings := Dictionary new.
 perLanguageInfo := Dictionary new.
 rowPerKey := Dictionary new.
 self addLanguage:#'de'.
 self addLanguage:#'fr'.
 self addLanguage:#'es'.
 keys add:'no'.
 self addLanguage:#'de'.
 self addLanguage:#'fr'.
 self at:'open' language:#'de' put:'�ffnen'.
-self at:'close' language:#'de' put:'schliessen'.
+self at:'close' language:#'de' put:'schlie�en'.
 self at:'yes' language:#'de' put:'ja'.
 self at:'no' language:#'de' put:'nein'.
 self at:'cancel' language:#'de' put:'abbrechen'.
 self at:'open' language:#'fr' put:'ouvrir'.
 self at:'close' language:#'fr' put:'fermer'.
 self at:'yes' language:#'fr' put:'oui'.
 self at:'no' language:#'fr' put:'non'.
 ! !
 !InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'private'!
 atLanguage:lang
 maxKeySizeForLanguage: lang
 ^(self atLanguage: lang) keys inject: 0 into:[:maxSize :each |
 (maxSize < each size and:[each size < 100])
-ifTrue:[each size]
+	ifTrue:[each size]
-ifFalse:[maxSize].].
+	ifFalse:[maxSize].].
 !
 searchForSimilarTranslation: aKey in: language
 "Returns a collection of translation associations that corresponds to a quite similar key comparing with aKey"
 |similarAssociations|
 similarAssociations:=
 (self mappingAtLanguage: language) associationsSelect:[:each |
-((each key sameAs: aKey)
+	((each key sameAs: aKey)
-or:[(aKey asUppercase startsWith: each key asUppercase)
+	    or:[(aKey asUppercase startsWith: each key asUppercase)
-or:[((each key asUppercase levenshteinTo: aKey asUppercase)/ each key size) < 0.3
+		or:[((each key asUppercase levenshteinTo: aKey asUppercase)/ each key size) < 0.3
-]])
+		]])
-and:[each value notNil
+	 and:[each value notNil
-and:[each value notEmpty]]
+		and:[each value notEmpty]]
 ].
 ^similarAssociations
 ! !
 !InternationalLanguageTranslationEditor::LanguageMappingRow methodsFor:'accessing'!
 visitObject:anObject with:aParameter
 |l|
 (anObject isKindOf:UISpecification) ifTrue:[
-(anObject respondsTo:#translateLabel) ifTrue:[
+	(anObject respondsTo:#translateLabel) ifTrue:[
-anObject translateLabel == true ifTrue:[
+	    anObject translateLabel == true ifTrue:[
-translatedLabels isNil ifTrue:[
+		translatedLabels isNil ifTrue:[
-translatedLabels := Set new.
+		    translatedLabels := Set new.
-].
+		].
-l := anObject perform:#label ifNotUnderstood:nil.
+		l := anObject perform:#label ifNotUnderstood:nil.
-l notNil ifTrue:[
+		l notNil ifTrue:[
-translatedLabels add:l.
+		    translatedLabels add:l.
-].
+		].
-].
+	    ].
-].
+	].
 ].
 self visitChildrenOf:anObject.
 ! !
 !InternationalLanguageTranslationEditor class methodsFor:'documentation'!

changeset 2434	6ad1f853d2e9
parent 2433	88fbe1703c31
child 2570	4e663bc64364