# 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