--- 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 $'
! !