care for binary files
authorClaus Gittinger <cg@exept.de>
Tue, 07 Jan 2003 13:03:03 +0100
changeset 4413 ff365700effb
parent 4412 710b2097c588
child 4414 1c1b24365d26
care for binary files
DiffTextView.st
--- a/DiffTextView.st	Tue Jan 07 10:52:33 2003 +0100
+++ b/DiffTextView.st	Tue Jan 07 13:03:03 2003 +0100
@@ -360,6 +360,12 @@
     l1 := OrderedCollection new.
     l2 := OrderedCollection new.
 
+    diffList size == 1 ifTrue:[
+        textView1 list:diffList.
+        textView2 list:diffList.
+        ^ self.
+    ].
+
     idx1 := 1.
     idx2 := 1.
 
@@ -626,5 +632,5 @@
 !DiffTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.35 2002-07-25 10:47:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.36 2003-01-07 12:03:03 cg Exp $'
 ! !