25ED4 |
FlashMsg
|
( $ → )
Displays message in status area, then
restores it to normal.
|
2EE61 |
FlashWarning
|
( $ → )
Displays message in a message box and
beeps. Waits for OK to be pressed.
|
2F1A5 |
AskQuestion
|
( $ → flag )
Use the string to ask the user a question
with yes/no in a choose box. If you prefer a
YES/NO menu, this can be implemented like
this, using ~DoMsgBox:
::
15 10 (BINTs, don't know what they do)
MINUSONE (could also be a grob)
'
::
NoExitAction
{ NullMenuKey NullMenuKey
NullMenuKey NullMenuKey
{ "NO" :: TakeOver FALSETRUE 2PUTLAM ; }
{ "YES" :: TakeOver TrueTrue 2PUTLAM ; }
}
;
ROMPTR2 ~DoMsgBox
;
|
02E002 |
^DoAlert
|
( $ → )
Displays alert messagebox, a message box with
a little alert grob in the upper left corner.
|
2EE60 |
DoWarning
|
( $ → )
Displays message, beeps and freezes status
area.
|
007002 |
^Ck&DoMsgBox
|
( $ → )
Displays a message box and waits for the user
to press OK.
|
0000B1 |
~DoMsgBox
|
( $ #x #y grob menu → T )
Displays a message box with a grob in the
upper left corner and the specified menu.
If no grob is desired, use MINUSONE.
The meaning of #x and #y is unclear - it
seems that any BINT will do.
|
0040B1 |
~MsgBoxMenu
|
( → {} )
The messsage box menu, with just the OK key.
|