--- a/TwoColumnTextView.st Tue May 11 14:50:21 2004 +0200
+++ b/TwoColumnTextView.st Tue May 11 16:58:34 2004 +0200
@@ -124,32 +124,32 @@
"Modified: 25.4.1996 / 13:31:03 / cg"
!
-openOn:firstText and:secondText in:aView
+openOn:firstText and:secondText in:aView
"open up a view showing firstText and secondText side-by-side.
This does not make much sense for unrelated texts - of course."
-
- self openOn:firstText
- label:nil
- and:secondText
- label:nil
- in:aView.
+
+ self
+ openOn:firstText
+ label:nil
+ and:secondText
+ label:nil
+ in:aView.
!
-openOn:firstText label:firstLabel and:secondText label:secondLabel
+openOn:firstText label:firstLabel and:secondText label:secondLabel
"open up a view showing firstText and secondText side-by-side,
and labels for both views.
This does not make much sense for unrelated texts - of course."
-
+
|top v|
top := StandardSystemView label:'two texts'.
-
- v := self openOn:firstText
- label:firstLabel
- and:secondText
- label:secondLabel
- in:top.
-
+ v := self
+ openOn:firstText
+ label:firstLabel
+ and:secondText
+ label:secondLabel
+ in:top.
top open.
^ v
@@ -160,7 +160,6 @@
and:('display.rc' asFilename contentsOfEntireFile)
label:'display.rc'
"
-
"Modified: 15.8.1996 / 19:46:38 / cg"
!
@@ -354,5 +353,5 @@
!TwoColumnTextView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.21 2001-07-19 14:12:13 penk Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.22 2004-05-11 14:58:34 cg Exp $'
! !