home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR22
/
JORF21_2.ZIP
/
MSGBOXES.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
1KB
|
72 lines
MsgBoxes:Start
Win:Add ("Message Test")
MLine:"&Yes", Action:"MsgBoxes:YesNo"
MLine:"&No", Action:"MsgBoxes:NoYes"
MLine:"&Cancel",Action:"MsgBoxes:Cancel"
MLine:"&Ok", Action:"MsgBoxes:OkBox"
MLine:"&Exit", Action:"Jorf:Exit"
Return(Ok)
MsgBoxes:Cancel
New Result
Result=Msg:Add ("Cancel", "Cancel")
This is an Cancel Box!
Switch
Case Kbd:Got = 'Esc_Key'
Msg:Add
You hit the escape key
Case Result = Ok
Msg:Add
You picked Ok
Else
Msg:Add
You canceled
Return Ok
MsgBoxes:NoYes
New Result
Result=Msg:Add ("No/Yes", "No")
This is a No-Yes Box!
Switch
Case Kbd:Got = 'Esc_Key'
Msg:Add
You hit the escape key
Case Result = Ok
Msg:Add
You picked yes
Else
Msg:Add
You picked no
Return Ok
MsgBoxes:OkBox
New Result
Result=Msg:Add ("Ok", "Ok")
This is an Ok Box!
If (Result)
Msg:Add
You picked Ok
else
Msg:Add
You hit the escape key.
Return Ok
MsgBoxes:YesNo
New (Result)
Result=Msg:Add ("Yes/No", "Yes")
This is a yes-No Box!
Switch
Case Kbd:Got = 'Esc_Key'
Msg:Add
You hit the escape key
Case Result = Ok
Msg:Add
You picked yes
Else
Msg:Add
You picked no
Return Ok