--- a/Tools_NavigationState.st	Thu Oct 16 10:31:02 2008 +0200
+++ b/Tools_NavigationState.st	Thu Oct 16 10:34:03 2008 +0200
@@ -381,7 +381,10 @@
                 v := ViewWithAcceptAndCancelBar new.
                 v slaveView:scrollableCodeView.
                 v reallyModifiedHolder:self realModifiedStateHolder.
-                v cancelAction:[ codeView application delayedUpdateCodeWithAutoSearch:false checkModified:false ].
+                v cancelAction:[ codeView application delayedUpdateCodeWithAutoSearch:false checkModified:false.
+                                 codeView requestFocus. ].
+                v compareAction:[ codeView application doCompareIn:self.
+                                  codeView requestFocus ].
                 scrollableCodeView := v.
             ]
         ].
@@ -1292,5 +1295,5 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.25 2008-04-04 16:29:04 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.26 2008-10-16 08:34:03 cg Exp $'
 ! !