--- 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 $'
! !