accessors to textViews
authorClaus Gittinger <cg@exept.de>
Tue, 07 Dec 1999 14:29:54 +0100
changeset 1629 010265dc2f53
parent 1628 1305487a3bcc
child 1630 01dc20096011
accessors to textViews
TwoColumnTextView.st
--- a/TwoColumnTextView.st	Fri Dec 03 19:15:07 1999 +0100
+++ b/TwoColumnTextView.st	Tue Dec 07 14:29:54 1999 +0100
@@ -204,6 +204,10 @@
 
 !TwoColumnTextView methodsFor:'accessing'!
 
+leftTextView
+    ^ textViews at:1
+!
+
 numberOfChanges
     |start numberOfChanges|
 
@@ -224,6 +228,10 @@
     ^numberOfChanges
 !
 
+rightTextView
+    ^ textViews at:2
+!
+
 text1:t1 text2:t2
     (textViews at:1) list:t1 asText.
     (textViews at:2) list:t2 asText.
@@ -343,4 +351,4 @@
 !TwoColumnTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.19 1999-09-04 14:33:16 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.20 1999-12-07 13:29:54 cg Exp $'! !