--- a/TwoColumnTextView.st	Fri Sep 03 12:14:18 1999 +0200
+++ b/TwoColumnTextView.st	Sat Sep 04 16:33:16 1999 +0200
@@ -138,7 +138,7 @@
      and labels for both views.
      This does not make much sense for unrelated texts - of course."
 
-    |top v l1 l2|
+    |top|
 
     top := StandardSystemView label:'two texts'.
 
@@ -163,7 +163,7 @@
 
 openOn:firstText label:firstLabel and:secondText label:secondLabel in:aView
     "open up a view showing firstText and secondText side-by-side,
-     and labels for both views.
+     and labels for both views. Return the (wrapped) diff-view.
      This does not make much sense for unrelated texts - of course."
 
     |hvs scr l1 l2|
@@ -191,6 +191,7 @@
     scr addNextPreviousButtons.
     scr moveToNextChanged.
 
+    ^ scr.
 ! !
 
 !TwoColumnTextView class methodsFor:'specification'!
@@ -342,4 +343,4 @@
 !TwoColumnTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.18 1999-07-09 14:57:18 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.19 1999-09-04 14:33:16 cg Exp $'! !