39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
|
|
FUNCTION mbox_ok(t, m, i)
|
|
DEFINE t,m,i STRING
|
|
MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
|
|
COMMAND "Ok" EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION mbox_yn(t, m, i)
|
|
DEFINE t,m,i STRING
|
|
DEFINE r INTEGER
|
|
MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
|
|
COMMAND "Yes" LET r = TRUE EXIT MENU
|
|
COMMAND "No" LET r = FALSE EXIT MENU
|
|
END MENU
|
|
RETURN r
|
|
END FUNCTION
|
|
|
|
FUNCTION mbox_ync(t, m, i)
|
|
DEFINE t,m,i STRING
|
|
DEFINE r INTEGER
|
|
MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
|
|
COMMAND "Yes" LET r = 1 EXIT MENU
|
|
COMMAND "No" LET r = 2 EXIT MENU
|
|
COMMAND "Cancel" LET r = 3 EXIT MENU
|
|
END MENU
|
|
RETURN r
|
|
END FUNCTION
|
|
|