OptionBox.st
changeset 4224 c8a625e033f6
parent 4223 b5b129a56f44
child 4382 30f95402085b
--- a/OptionBox.st	Tue Feb 08 11:22:25 2011 +0100
+++ b/OptionBox.st	Tue Feb 08 11:32:57 2011 +0100
@@ -216,8 +216,13 @@
      the corresponding values collection. Return nil if cancelled"
 
     ^ self 
-        request:title label:label image:(YesNoBox iconBitmap)
-        buttonLabels:labels values:values default:nil onCancel:nil
+        request:title 
+        label:label 
+        image:(YesNoBox iconBitmap)
+        buttonLabels:labels 
+        values:values 
+        default:nil 
+        onCancel:nil
 
     "
      OptionBox 
@@ -226,6 +231,8 @@
         buttonLabels:#('one' 'two' 'three')
         values:#(1 2 3)   
     "
+
+    "Modified: / 08-02-2011 / 11:32:48 / cg"
 !
 
 request:title label:label buttonLabels:labels values:values default:defaultValue
@@ -683,9 +690,9 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.71 2011-02-08 10:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.72 2011-02-08 10:32:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.71 2011-02-08 10:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.72 2011-02-08 10:32:57 cg Exp $'
 ! !