--- a/ListSelectionBox.st	Thu Aug 31 07:01:01 1995 +0200
+++ b/ListSelectionBox.st	Thu Sep 07 14:46:28 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.16 1995-08-11 16:07:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.17 1995-09-07 12:45:09 claus Exp $
 '!
 
 !ListSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.16 1995-08-11 16:07:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.17 1995-09-07 12:45:09 claus Exp $
 "
 !
 
@@ -70,6 +70,7 @@
 	box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
 	box showAtPointer
 
+
     with a default:
 
 	|box|
@@ -80,6 +81,22 @@
 	box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
 	box initialText:'foo'.
 	box showAtPointer
+
+
+    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|
+
+	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
 "
 ! !