--- a/OptionBox.st	Tue Jan 07 20:33:21 1997 +0100
+++ b/OptionBox.st	Tue Jan 07 22:59:42 1997 +0100
@@ -141,19 +141,22 @@
     box := OptionBox title:title numberOfOptions:(labels size).
     box buttonTitles:labels.
     box defaultButtonIndex:(values indexOf:defaultValue). 
-    box action:[:n | ^ values at:n].
+    box action:[:n | box destroy. ^ values at:n].
     box label:label; form:aForm.
     box showAtPointer.
+    box destroy.
     ^ defaultValue
 
     "
      OptionBox request:'please select'
-	       label:'select any'
-	       form:(WarningBox iconBitmap)
-	       buttonLabels:#('one' 'two' 'three')
-	       values:#(1 2 3)
-	       default:3
+               label:'select any'
+               form:(WarningBox iconBitmap)
+               buttonLabels:#('one' 'two' 'three')
+               values:#(1 2 3)
+               default:3
     "
+
+    "Modified: 7.1.1997 / 22:59:21 / cg"
 ! !
 
 !OptionBox methodsFor:'accessing'!
@@ -411,5 +414,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.36 1996-12-19 13:50:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.37 1997-01-07 21:59:42 cg Exp $'
 ! !