Yes/No dialog boxes now properly accept Y and N characters to select the response
This commit is contained in:
parent
53f284f3db
commit
ae76510b03
|
@ -169,7 +169,7 @@ Begin
|
||||||
Else
|
Else
|
||||||
WriteXY (Len + Len2 + 7, 14, 30, ' NO ');
|
WriteXY (Len + Len2 + 7, 14, 30, ' NO ');
|
||||||
|
|
||||||
Ch := Session.io.GetKey;
|
Ch := UpCase(Session.io.GetKey);
|
||||||
|
|
||||||
If Session.io.IsArrow Then
|
If Session.io.IsArrow Then
|
||||||
Case Ch of
|
Case Ch of
|
||||||
|
|
Loading…
Reference in New Issue