Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 04 Sep 1999 16:33:16 +0200
changeset 1504 665a97db7e44
parent 1503 3e40081702ff
child 1505 1d7b8a023233
checkin from browser
2ColTxtV.st file | annotate | diff | comparison | revisions
TwoColumnTextView.st file | annotate | diff | comparison | revisions 
--- a/2ColTxtV.st	Fri Sep 03 12:14:18 1999 +0200
+++ b/2ColTxtV.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/Attic/2ColTxtV.st,v 1.18 1999-07-09 14:57:18 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.19 1999-09-04 14:33:16 cg Exp $'! !
--- 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 $'! !
hg/stx-libwidg2