--- a/TextView.st Wed Mar 05 17:31:43 1997 +0100
+++ b/TextView.st Wed Mar 05 17:32:19 1997 +0100
@@ -271,10 +271,10 @@
"Created: 14.2.1997 / 15:23:36 / cg"
!
-openWith:aString
- "start a textView with aString as initial contents"
-
- ^ self openWith:aString title:nil
+openWith:aStringOrStringCollection
+ "start a textView with aStringOrStringCollection as initial contents"
+
+ ^ self openWith:aStringOrStringCollection title:nil
"
TextView openWith:'some text'
@@ -282,14 +282,15 @@
"
"Created: 10.12.1995 / 17:41:32 / cg"
+ "Modified: 5.3.1997 / 15:37:19 / cg"
!
-openWith:aString title:aTitle
- "start a textView with aString as initial contents. Return the textView."
+openWith:aStringOrStringCollection title:aTitle
+ "start a textView with aStringOrStringCollection as initial contents. Return the textView."
|textView|
- textView := self setupWith:aString title:aTitle.
+ textView := self setupWith:aStringOrStringCollection title:aTitle.
textView topView open.
^ textView
@@ -299,7 +300,7 @@
"
"Created: 10.12.1995 / 17:40:02 / cg"
- "Modified: 9.9.1996 / 19:32:29 / cg"
+ "Modified: 5.3.1997 / 15:37:26 / cg"
!
setupEmpty
@@ -354,8 +355,8 @@
"Created: 14.2.1997 / 15:22:42 / cg"
!
-setupWith:aString title:aTitle
- "setup a textView with aString as initial contents in a topView"
+setupWith:aStringOrStringCollection title:aTitle
+ "setup a textView with aStringOrStringCollection as initial contents in a topView"
|top textView|
@@ -363,13 +364,14 @@
top := textView topView.
aTitle notNil ifTrue:[top label:aTitle].
- aString notNil ifTrue:[
- textView contents:aString
+ aStringOrStringCollection notNil ifTrue:[
+ textView contents:aStringOrStringCollection
].
^ textView
"Created: 9.9.1996 / 19:31:22 / cg"
+ "Modified: 5.3.1997 / 15:37:37 / cg"
! !
!TextView methodsFor:'accessing'!
@@ -2423,5 +2425,5 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.86 1997-02-25 19:19:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.87 1997-03-05 16:32:19 cg Exp $'
! !