--- a/Tools__InternationalLanguageTranslationEditor.st	Mon Mar 10 10:25:26 2008 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Tue Mar 25 10:07:10 2008 +0100
@@ -16,7 +16,7 @@
 		selectedColIndexHolder exampleLanguageSelectionHolder
 		exampleLanguageTextHolder pastePreviousTranslationEnableHolder
 		searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder
-		lastNameSpace'
+		lastNameSpace pasteOriginalEnableHolder'
 	classVariableNames:'LastExtractedClass LastExtractedApplicationClass
 		LastExtractedProject'
 	poolDictionaries:''
@@ -242,6 +242,15 @@
                                 enableChannel: pastePreviousTranslationEnableHolder
                                 disabledLogo: 'Paste Previous'
                               )
+                             (ActionButtonSpec
+                                label: 'Paste Original'
+                                name: 'Button1'
+                                layout: (LayoutOrigin -95 0.83085250338295 0 0.03448275862069)
+                                translateLabel: true
+                                model: pasteOriginalInLanguageText
+                                enableChannel: pasteOriginalEnableHolder
+                                disabledLogo: 'Paste Original'
+                              )
                              )
                            
                           )
@@ -814,6 +823,11 @@
     ^ originalTextModifiedHolder.
 !
 
+pasteOriginalEnableHolder
+   pasteOriginalEnableHolder isNil ifTrue:[pasteOriginalEnableHolder := false asValue]. 
+    ^ pasteOriginalEnableHolder
+!
+
 pastePreviousTranslationEnableHolder
    pastePreviousTranslationEnableHolder isNil ifTrue:[pastePreviousTranslationEnableHolder := false asValue]. 
     ^ pastePreviousTranslationEnableHolder
@@ -940,6 +954,11 @@
             answer == #acceptAsNew ifTrue:[
     self halt.        ].
         ].
+!
+
+updatePasteOriginalButtonEnabled
+
+     self pasteOriginalEnableHolder value: self shouldPasteOriginalButtonBeEnabled
 ! !
 
 !InternationalLanguageTranslationEditor methodsFor:'dialogs'!
@@ -1338,13 +1357,14 @@
 
 searchStringInLastNameSpace
 
-    |selectedKey browser|
+    |selectedKey browser lastSearchPatterns|
 
     selectedKey := self selectedKey.
     selectedKey isNil ifTrue:[^Dialog information: 'No selected key'].
     browser := NewSystemBrowser new "open".
     browser allButOpen.
-    browser lastSearchPatterns first = selectedKey ifFalse:[
+    lastSearchPatterns := browser lastSearchPatterns.
+    (lastSearchPatterns notNil and:[lastSearchPatterns first ~= selectedKey]) ifTrue:[
         browser lastSearchPatterns addFirst: selectedKey
     ].
     lastNameSpace isNil ifTrue:[
@@ -1723,6 +1743,11 @@
         and:[self hasFirstRowSelection]
 !
 
+shouldPasteOriginalButtonBeEnabled
+    ^ self hasLanguageSelection 
+        and:[self hasFirstRowSelection]
+!
+
 shouldSearchForSimilarTranslation
 
     self isSearchForSimilarTranslationEnabled ifFalse:[^false].
@@ -1918,6 +1943,17 @@
             self selectedKeyRow value: nextRowIndex].
 !
 
+pasteOriginalInLanguageText
+    <resource: #uiCallback>
+
+    | originalText|
+
+    originalText := self selectedKey.
+    languageEditor selectAll.
+    languageEditor pasteOrReplace:originalText.
+    self languageTextModifiedHolder value:true.
+!
+
 pastePreviousTranslationInLanguageText
     "Obtain the text from the previous translation and paste it into the languageTextEditor"
     
@@ -1939,6 +1975,7 @@
    self updateExampleLanguageText.
 
    self updateCopyPreviousTranslationButtonEnabled.
+   self updatePasteOriginalButtonEnabled.
 
    self originalTextModifiedHolder value:false.
    self languageTextModifiedHolder value:false.