--- a/DiffCodeView.st	Sun Apr 14 19:58:44 2013 +0200
+++ b/DiffCodeView.st	Sun Apr 14 20:10:35 2013 +0200
@@ -56,8 +56,28 @@
     ^ CodeView
 ! !
 
+!DiffCodeView methodsFor:'initialization'!
+
+initialize
+    super initialize.
+
+    textViews doWithIndex:[:v :i |
+        v readOnly:true.
+        "/ v acceptAction:[:text | self acceptInView:i ]
+    ].
+!
+
+leftAcceptAction:aOneArgBlock
+    (textViews at:1) acceptAction:aOneArgBlock
+!
+
+rightAcceptAction:aOneArgBlock
+    (textViews at:2) acceptAction:aOneArgBlock
+! !
+
 !DiffCodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DiffCodeView.st,v 1.1 2008-05-05 11:24:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DiffCodeView.st,v 1.2 2013-04-14 18:10:35 cg Exp $'
 ! !
+