OptionBox.st
changeset 4223 b5b129a56f44
parent 3936 01654678a889
child 4224 c8a625e033f6
--- a/OptionBox.st	Wed Feb 02 13:29:16 2011 +0100
+++ b/OptionBox.st	Tue Feb 08 11:22:25 2011 +0100
@@ -179,7 +179,10 @@
      the corresponding values collection. Return nil if cancelled"
 
     ^ self 
-        request:title label:title buttonLabels:labels values:values
+        request:title 
+        label:title 
+        buttonLabels:labels 
+        values:values
 
     "
      OptionBox 
@@ -187,6 +190,8 @@
         buttonLabels:#('one' 'two' 'three')
         values:#(1 2 3)   
     "
+
+    "Modified: / 08-02-2011 / 11:22:13 / cg"
 !
 
 request:title buttonLabels:labels values:values default:defaultValue
@@ -678,5 +683,9 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.70 2009-09-23 15:28:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.71 2011-02-08 10:22:25 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.71 2011-02-08 10:22:25 cg Exp $'
 ! !