--- a/OptionBox.st	Wed Sep 12 21:05:01 2001 +0200
+++ b/OptionBox.st	Wed Sep 19 10:28:29 2001 +0200
@@ -127,6 +127,33 @@
 
 !OptionBox class methodsFor:'easy startup '!
 
+request:title label:label buttonLabels:labels values:values 
+    "create a new optionBox, open it modal and return the value of
+     the corresponding values collection."
+
+    ^ self 
+        request:title label:label form:(YesNoBox iconBitmap)
+        buttonLabels:labels values:values default:nil onCancel:nil
+!
+
+request:title label:label buttonLabels:labels values:values default:defaultValue
+    "create a new optionBox, open it modal and return the value of
+     the corresponding values collection. (nil if cancelled)"
+
+    ^ self
+        request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
+        default:defaultValue onCancel:defaultValue
+!
+
+request:title label:label buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
+    "create a new optionBox, open it modal and return the value of
+     the corresponding values collection. (nil if cancelled)"
+
+    ^ self
+        request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
+        default:defaultValue onCancel:cancelValue
+!
+
 request:title label:label form:aForm buttonLabels:labels values:values 
     "create a new optionBox, open it modal and return the value of
      the corresponding values collection."
@@ -425,5 +452,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.47 2001-08-02 09:50:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.48 2001-09-19 08:28:29 cg Exp $'
 ! !