YesNoBox.st
changeset 6331 08ac4c72de00
parent 6182 46362930b07b
child 6364 0524033012d2
--- a/YesNoBox.st	Mon May 28 12:28:15 2018 +0200
+++ b/YesNoBox.st	Sun Jun 03 09:20:23 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -38,7 +40,7 @@
 
 documentation
 "
-   Historic note:
+   aHistoric note:
         originally, ST/X had separate classes for the various entry methods;
         there were YesNoBox, EnterBox, InfoBox and so on.
         In the meantime, the DialogBox class (and therefore its alias: Dialog)
@@ -51,7 +53,7 @@
     New applications should use corresponding confirmation
     methods from DialogBox.
 
-    this class implements yes-no boxes by adding another (no-) Button to the WarnBox-View.
+    This class implements yes-no boxes by adding another (no-) Button to the WarnBox-View.
     They are created with:
 
         aBox := YesNoBox title:'some title'.
@@ -161,6 +163,14 @@
             Transcript showCR:'no'
         ]
                                                                         [exEnd]
+
+    or even:
+                                                                        [exBegin]
+        Transcript showCR:(
+            (Dialog confirm:'yes or no:')   
+                ifTrue:['yes'] 
+                ifFalse:['no'])
+                                                                        [exEnd]
 "
 ! !