--- a/TwoColumnTextView.st Thu Jul 19 10:27:04 2001 +0200
+++ b/TwoColumnTextView.st Thu Jul 19 16:12:13 2001 +0200
@@ -12,6 +12,8 @@
"Created: 20.11.1995 / 13:21:17 / cg"
+"{ Package: 'stx:libwidg2' }"
+
SyncedMultiColumnTextView subclass:#TwoColumnTextView
instanceVariableNames:'nextPrevButtonPanel'
classVariableNames:''
@@ -138,17 +140,18 @@
and labels for both views.
This does not make much sense for unrelated texts - of course."
- |top|
+ |top v|
top := StandardSystemView label:'two texts'.
- self openOn:firstText
+ v := self openOn:firstText
label:firstLabel
and:secondText
label:secondLabel
in:top.
- ^ top open
+ top open.
+ ^ v
"
TwoColumnTextView
@@ -351,4 +354,5 @@
!TwoColumnTextView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.20 1999-12-07 13:29:54 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.21 2001-07-19 14:12:13 penk Exp $'
+! !