TextView.st
changeset 1100 2256f369ee96
parent 1055 63810926b20a
child 1109 83d8c0143ef9
--- 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 $'
 ! !