--- a/DiffTextView.st	Wed Jan 17 18:12:36 2001 +0100
+++ b/DiffTextView.st	Wed Jan 17 18:37:35 2001 +0100
@@ -103,6 +103,29 @@
 
 !DiffTextView class methodsFor:'instance creation'!
 
+openOnClass:classA labelA:lblA andClass:classB labelB:lblB title:title ifSame:sameAction
+    "provided for protocol compatibility with the VersionDiffBrowser;
+     actually, the classes are ignored here"
+
+    |v aStream sourceA sourceB|
+
+    aStream := '' writeStream.
+    Method flushSourceStreamCache.
+    classA fileOutOn:aStream withTimeStamp:false.
+    sourceA := aStream contents asString.
+
+    aStream := '' writeStream.
+    Method flushSourceStreamCache.
+    classB fileOutOn:aStream withTimeStamp:false.
+    sourceB := aStream contents asString.
+
+    v := self 
+                openOn:sourceA label:lblA
+                and:sourceB label:lblB.      
+    v label:title.
+    ^ v
+!
+
 openOnClass:someClass labelA:lblA sourceA:sourceA labelB:lblB sourceB:sourceB
     "provided for protocol compatibility with the VersionDiffBrowser;
      actually, the class is ignored here"
@@ -595,5 +618,5 @@
 !DiffTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.31 2000-11-15 18:32:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.32 2001-01-17 17:37:35 cg Exp $'
 ! !