--- a/ListSelectionBox.st	Sat Apr 27 20:13:37 1996 +0200
+++ b/ListSelectionBox.st	Sat Apr 27 20:21:37 1996 +0200
@@ -51,42 +51,45 @@
 examples 
 "
     simple:
-
-	|box|
+                                                                        [exBegin]
+        |box|
 
-	box := ListSelectionBox new.
-	box title:'select something:'.
-	box list:#('foo' 'bar' 'baz').
-	box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
-	box showAtPointer
+        box := ListSelectionBox new.
+        box title:'select something:'.
+        box list:#('foo' 'bar' 'baz').
+        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box showAtPointer
+                                                                        [exEnd]
 
 
     with a default:
-
-	|box|
+                                                                        [exBegin]
+        |box|
 
-	box := ListSelectionBox new.
-	box title:'select something:'.
-	box list:#('foo' 'bar' 'baz').
-	box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
-	box initialText:'foo'.
-	box showAtPointer
+        box := ListSelectionBox new.
+        box title:'select something:'.
+        box list:#('foo' 'bar' 'baz').
+        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box initialText:'foo'.
+        box showAtPointer
+                                                                        [exEnd]
 
 
     opening the box modeless (a stand-by box):
     (in this case, the default ok- and abortActions do not hide the box;
      therefore, we have to set those explicitely)
-
-	|box|
+                                                                        [exBegin]
+        |box|
 
-	box := ListSelectionBox new.
-	box title:'select something:'.
-	box list:#('foo' 'bar' 'baz').
-	box abortText:'close'.
-	box okText:'apply'.
-	box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
-	box abortAction:[:dummy | box hide].
-	box openModeless
+        box := ListSelectionBox new.
+        box title:'select something:'.
+        box list:#('foo' 'bar' 'baz').
+        box abortText:'close'.
+        box okText:'apply'.
+        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box abortAction:[:dummy | box hide].
+        box openModeless
+                                                                        [exEnd]
 "
 ! !
 
@@ -311,5 +314,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.27 1996-04-25 17:20:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.28 1996-04-27 18:16:14 cg Exp $'
 ! !