--- 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]
"
! !