--- a/TextView.st	Thu May 01 10:47:26 2014 +0100
+++ b/TextView.st	Thu May 01 10:47:38 2014 +0100
@@ -484,7 +484,7 @@
                          translateLabel: true
                        )
                       (InputFieldSpec
-                         name: 'EntryField1'
+                         name: 'ReplaceEntryField'
                          layout: (LayoutFrame 164 0 0 0 -2 1 22 0)
                          activeHelpKey: replaceText
                          visibilityChannel: replaceBoolean
@@ -2290,7 +2290,14 @@
     bindings at:#replaceEnabled put:replaceBooleanEnabledHolder.
     bindings at:#replaceBoolean put:replaceBooleanHolder.
     bindings at:#replaceTextHolder put:replaceTextHolder.
-
+    replaceBooleanHolder onChangeEvaluate:
+        [
+            replaceBooleanHolder value ifTrue:[
+                (bldr componentAt:#ReplaceEntryField) requestFocus   
+            ] ifFalse:[
+                (bldr componentAt:#patternComboBox) requestFocus   
+            ].
+        ].
     modal ifTrue:[
         searchBox := SimpleDialog new.
     ] ifFalse:[
@@ -4884,11 +4891,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
 !
 
 version_HG