--- a/ExternalStream.st	Fri Sep 01 12:11:39 2000 +0200
+++ b/ExternalStream.st	Fri Sep 01 12:14:24 2000 +0200
@@ -1420,31 +1420,32 @@
 examples
 "
     open a file, read the contents and display it in a textView:
-
-	|topView scrollPane textView fileStream text|
-
-	topView := StandardSystemView new.
-	topView label:'contents of Makefile'.
-
-	scrollPane := HVScrollableView in:topView.
-	scrollPane origin:0.0@0.0 corner:1.0@1.0.
+                                                                        [exBegin]
+        |topView scrollPane textView fileStream text|
+
+        topView := StandardSystemView new.
+        topView label:'contents of Makefile'.
+
+        scrollPane := HVScrollableView in:topView.
+        scrollPane origin:0.0@0.0 corner:1.0@1.0.
         
-	textView := EditTextView new.
-	scrollPane scrolledView:textView.
-
-	fileStream := 'Makefile' asFilename readStream.
-	text := fileStream upToEnd.
-	fileStream close.
-
-	textView contents:text.
-
-	topView open.
-
+        textView := EditTextView new.
+        scrollPane scrolledView:textView.
+
+        fileStream := 'Makefile' asFilename readStream.
+        text := fileStream upToEnd.
+        fileStream close.
+
+        textView contents:text.
+
+        topView open.
+                                                                        [exEnd]
 
 
     Notice, all of the above can also be done (simply) as:
-
-	EditTextView openOn:'Makefile'
+                                                                        [exBegin]
+        EditTextView openOn:'Makefile'
+                                                                        [exEnd]
 "
 ! !
 
@@ -5636,6 +5637,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.220 2000-08-08 13:29:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.221 2000-09-01 10:14:09 cg Exp $'
 ! !
 ExternalStream initialize!