29 lines
722 B
Plaintext
29 lines
722 B
Plaintext
|
|
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
|