--- a/WarningBox.st	Sat Apr 27 20:13:37 1996 +0200
+++ b/WarningBox.st	Sat Apr 27 20:21:37 1996 +0200
@@ -82,22 +82,23 @@
 examples
 "
     Examples:
-
-	|aBox|
+                                                                        [exBegin]
+        |aBox|
 
-	aBox := WarningBox title:'Press ''OK'' to continue'.
-	aBox okText:'OK'.
-	aBox showAtPointer.
-
+        aBox := WarningBox title:'Press ''OK'' to continue'.
+        aBox okText:'OK'.
+        aBox showAtPointer.
+                                                                        [exEnd]
     since warnboxes are much like infoBoxes, all of look can be changed
     like described there:
-
-	|aBox|
+                                                                        [exBegin]
+        |aBox|
 
-	aBox := WarningBox title:'Press ''OK'' to continue'.
-	aBox okText:'yes, continue'.
-	aBox form:(Image fromFile:'bitmaps/SmalltalkX.xbm').
-	aBox showAtPointer.
+        aBox := WarningBox title:'Press ''OK'' to continue'.
+        aBox okText:'yes, continue'.
+        aBox form:(Image fromFile:'bitmaps/SmalltalkX.xbm').
+        aBox showAtPointer.
+                                                                        [exEnd]
 "
 ! !
 
@@ -176,5 +177,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.17 1996-04-25 17:20:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.18 1996-04-27 18:16:24 cg Exp $'
 ! !