diff -r 391290c747b3 -r d70cad164cd0 TextView.st
--- a/TextView.st	Fri Feb 14 16:53:13 1997 +0100
+++ b/TextView.st	Fri Feb 14 16:54:05 1997 +0100
@@ -86,6 +86,49 @@
     [see also:]
         EditTextView CodeView Workspace
 "
+!
+
+examples
+"
+    although textViews (and instances of subclasses) are mostly used
+    as components (in the fileBrowser, the browser, the launcher etc.),
+    they may also be opened as a textEditor;
+
+    open a (readonly) textView on some information text:
+                                                        [exBegin]
+        TextView 
+            openWith:'read this' 
+            title:'demonstration'
+                                                        [exEnd]
+
+    the same, but open it modal:
+                                                        [exBegin]
+        TextView 
+            openModalWith:'read this first' 
+            title:'demonstration'
+                                                        [exEnd]
+
+
+    open it editable modal on some text:
+                                                        [exBegin]
+        |m|
+
+        m := 'read this first' asValue.
+        EditTextView 
+            openModalOnModel:m.
+        Transcript showCR:m value.
+                                                        [exEnd]
+
+
+    open a textEditor on some text:
+                                                        [exBegin]
+        EditTextView openOn:'hello world'
+                                                        [exEnd]
+    open a textEditor on a file:
+                                                        [exBegin]
+                                                        [exEnd]
+
+"
 ! !
 
 !TextView class methodsFor:'instance creation'!
@@ -145,12 +188,55 @@
     ^ self openWith:nil
 !
 
+openModalOnModel:aModel
+    "start a textView on a model; return the textView"
+
+    |textView|
+
+    textView := self setupForModel:aModel.
+    textView topView openModal.
+    ^ textView
+
+    "Created: 14.2.1997 / 15:24:12 / cg"
+!
+
+openModalWith:aString
+    "start a textView with aString as initial contents"
+
+    ^ self openModalWith:aString title:nil 
+
+    "
+     TextView openModalWith:'some text'
+     EditTextView openModalWith:'some text'
+    "
+
+    "Created: 14.2.1997 / 15:19:04 / cg"
+!
+
+openModalWith:aString title:aTitle
+    "start a textView with aString as initial contents. Return the textView."
+
+    |textView|
+
+    textView := self setupWith:aString title:aTitle.
+    textView topView openModal.
+    ^ textView
+
+    "
+     TextView openModalWith:'some text' title:'testing'
+     EditTextView openModalWith:'some text' title:'testing'
+    "
+
+    "Modified: 9.9.1996 / 19:32:29 / cg"
+    "Created: 14.2.1997 / 15:19:18 / cg"
+!
+
 openOn:aFileName
     "start a textView on a file; return the textView"
 
     |textView|
 
-    textView := self setupOn:aFileName.
+    textView := self setupForFile:aFileName.
     textView topView open.
     ^ textView
 
@@ -159,7 +245,19 @@
      EditTextView openOn:'../../doc/overview.doc'
     "
 
-    "Modified: 9.9.1996 / 19:33:49 / cg"
+    "Modified: 14.2.1997 / 15:21:51 / cg"
+!
+
+openOnModel:aModel
+    "start a textView on a model; return the textView"
+
+    |textView|
+
+    textView := self setupForModel:aModel.
+    textView topView open.
+    ^ textView
+
+    "Created: 14.2.1997 / 15:23:36 / cg"
 !
 
 openWith:aString
@@ -212,7 +310,7 @@
     "Modified: 23.5.1965 / 14:12:32 / cg"
 !
 
-setupOn:aFileName
+setupForFile:aFileName
     "setup a textView on a file; return the textView"
 
     |top textView stream|
@@ -229,7 +327,20 @@
 
     ^ textView
 
-    "Created: 9.9.1996 / 19:32:56 / cg"
+    "Created: 14.2.1997 / 15:21:43 / cg"
+!
+
+setupForModel:aModel
+    "setup a textView on a model; return the textView"
+
+    |top textView|
+
+    textView := self setupEmpty.
+    textView model:aModel.
+    top := textView topView.
+    ^ textView
+
+    "Created: 14.2.1997 / 15:22:42 / cg"
 !
 
 setupWith:aString title:aTitle
@@ -2304,5 +2415,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.81 1997-02-13 17:32:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.82 1997-02-14 15:54:05 cg Exp $'
 ! !