--- a/VersionDiffBrowser.st	Fri Oct 06 11:55:34 2006 +0200
+++ b/VersionDiffBrowser.st	Fri Oct 06 14:32:29 2006 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#VersionDiffBrowser
@@ -246,7 +244,7 @@
                            
                           )
                         )
-                       (TextEditorSpec
+                       (CodeViewSpec
                           name: 'singleTextView'
                           layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
                           model: methodText
@@ -268,6 +266,8 @@
          
         )
       )
+
+    "Modified: / 06-10-2006 / 14:24:29 / cg"
 ! !
 
 !VersionDiffBrowser class methodsFor:'menu specs'!
@@ -944,13 +944,20 @@
 
     <return: HVScrollableView>
     "
+    |v|
+
     diffTextView isNil ifTrue:[
+        v := DiffTextView basicNew.
+        v textViewClass:CodeView.
+        v initialize.
         diffTextView := HVScrollableView
-                           for:DiffTextView
+                           forView:v
                            miniScrollerH:true miniScrollerV:false.
         diffTextView addNextPreviousButtons.
     ].
     ^ diffTextView
+
+    "Modified: / 06-10-2006 / 14:30:42 / cg"
 !
 
 methodText
@@ -1979,5 +1986,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.74 2006-09-12 12:27:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.75 2006-10-06 12:32:29 cg Exp $'
 ! !