*** empty log message ***
authorpenk
Thu, 19 Jul 2001 16:12:13 +0200
changeset 1979 35d379693f45
parent 1978 a53447b8cbe2
child 1980 bc32242dc2c3
*** empty log message ***
TwoColumnTextView.st
--- 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 $'
+! !