# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1037884280 -3600
# Node ID c8655a5eb411546dd88fae82d6632ef09e47adf9
# Parent  943ce849e7be5c1e43415201503c706c60ee14b3
*** empty log message ***

diff -r 943ce849e7be -r c8655a5eb411 OptionBox.st
--- a/OptionBox.st	Wed Nov 20 10:56:19 2002 +0100
+++ b/OptionBox.st	Thu Nov 21 14:11:20 2002 +0100
@@ -142,6 +142,20 @@
     "Modified: / 23.2.2000 / 11:59:32 / cg"
 !
 
+request:title buttonLabels:labels values:values 
+    "create a new optionBox, open it modal and return the value of
+     the corresponding values collection."
+
+    ^ self request:title label:title buttonLabels:labels values:values
+
+    "
+     OptionBox 
+        request:'please select any'
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)   
+    "
+!
+
 request:title label:label buttonLabels:labels values:values 
     "create a new optionBox, open it modal and return the value of
      the corresponding values collection."
@@ -149,6 +163,14 @@
     ^ self 
         request:title label:label form:(YesNoBox iconBitmap)
         buttonLabels:labels values:values default:nil onCancel:nil
+
+    "
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)   
+    "
 !
 
 request:title label:label buttonLabels:labels values:values default:defaultValue
@@ -158,6 +180,15 @@
     ^ self
         request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
         default:defaultValue onCancel:defaultValue
+
+    "
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)   
+        default:3   
+    "
 !
 
 request:title label:label buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
@@ -167,6 +198,16 @@
     ^ self
         request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
         default:defaultValue onCancel:cancelValue
+
+    "
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)   
+        default:3   
+        onCancel:2   
+    "
 !
 
 request:title label:label form:aForm buttonLabels:labels values:values 
@@ -174,6 +215,15 @@
      the corresponding values collection."
 
     ^ self request:title label:label form:aForm buttonLabels:labels values:values default:nil onCancel:nil
+
+    "
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        form:(WarningBox iconBitmap)
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)
+    "
 !
 
 request:title label:label form:aForm buttonLabels:labels values:values default:defaultValue
@@ -183,6 +233,16 @@
     ^ self
         request:title label:label form:aForm buttonLabels:labels values:values 
         default:defaultValue onCancel:defaultValue
+
+    "
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        form:(WarningBox iconBitmap)
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)
+        default:3
+    "
 !
 
 request:title label:label form:aForm buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
@@ -207,12 +267,14 @@
     ^ retVal
 
     "
-     OptionBox request:'please select'
-               label:'select any'
-               form:(WarningBox iconBitmap)
-               buttonLabels:#('one' 'two' 'three')
-               values:#(1 2 3)
-               default:3
+     OptionBox 
+        request:'please select'
+        label:'select any'
+        form:(WarningBox iconBitmap)
+        buttonLabels:#('one' 'two' 'three')
+        values:#(1 2 3)
+        default:3
+        onCancel:nil
     "
 
     "Modified: / 23.2.2000 / 11:59:32 / cg"
@@ -479,5 +541,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.52 2002-08-20 14:36:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.53 2002-11-21 13:11:20 cg Exp $'
 ! !