Mercurial Mercurial > hg > stx-libwidg / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
OptionBox.st
changeset 2711 e18e9edca978
parent 2700 d6bc43ddc80f
child 2898 b7ba089497d6 
--- a/OptionBox.st	Fri Mar 21 10:33:46 2003 +0100
+++ b/OptionBox.st	Fri Mar 21 10:41:12 2003 +0100
@@ -144,9 +144,10 @@
 
 request:title buttonLabels:labels values:values 
     "create a new optionBox, open it modal and return the value of
-     the corresponding values collection."
+     the corresponding values collection. Return nil if cancelled"
 
-    ^ self request:title label:title buttonLabels:labels values:values
+    ^ self 
+        request:title label:title buttonLabels:labels values:values
 
     "
      OptionBox 
@@ -158,11 +159,11 @@
 
 request:title 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)"
+     the corresponding values collection. Return nil if cancelled."
 
     ^ self
         request:title label:title form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
-        default:defaultValue onCancel:defaultValue
+        default:defaultValue onCancel:nil
 
     "
      OptionBox 
@@ -175,7 +176,7 @@
 
 request:title label:label buttonLabels:labels values:values 
     "create a new optionBox, open it modal and return the value of
-     the corresponding values collection."
+     the corresponding values collection. Return nil if cancelled"
 
     ^ self 
         request:title label:label form:(YesNoBox iconBitmap)
@@ -192,11 +193,11 @@
 
 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)"
+     the corresponding values collection. Return nil if cancelled"
 
     ^ self
         request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
-        default:defaultValue onCancel:defaultValue
+        default:defaultValue onCancel:nil
 
     "
      OptionBox 
@@ -210,7 +211,7 @@
 
 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)"
+     the corresponding values collection. Return cancelValue if cancelled."
 
     ^ self
         request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values 
@@ -229,9 +230,11 @@
 
 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."
+     the corresponding values collection. Return nil, if cancelled."
 
-    ^ self request:title label:label form:aForm buttonLabels:labels values:values default:nil onCancel:nil
+    ^ self 
+        request:title label:label form:aForm buttonLabels:labels values:values 
+        default:nil onCancel:nil
 
     "
      OptionBox 
@@ -245,11 +248,11 @@
 
 request:title label:label form:aForm 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)"
+     the corresponding values collection. Return nil if cancelled."
 
     ^ self
         request:title label:label form:aForm buttonLabels:labels values:values 
-        default:defaultValue onCancel:defaultValue
+        default:defaultValue onCancel:nil
 
     "
      OptionBox 
@@ -264,7 +267,7 @@
 
 request:title label:label form:aForm buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
     "create a new optionBox, open it modal and return the value of
-     the corresponding values collection. (cancelValue if cancelled)"
+     the corresponding values collection. Return cancelValue if cancelled."
 
     |box retVal|
 
@@ -558,5 +561,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.55 2003-02-28 17:02:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.56 2003-03-21 09:41:12 cg Exp $'
 ! !
hg/stx-libwidg