messagebox.reds

Red/System [
    Title:   "Hello"
    File:    %messagebox.reds
]

; --- lib imports -----

#import [
    "user32.dll" stdcall [
        MessageBox: "MessageBoxA" [
            handle      [integer!] 
            text        [c-string!] 
            title       [c-string!]
            type        [integer!]
        return: [integer!]
        ]
    ]
]

alert: func [txt [c-string!] return: [integer!]][
    MessageBox 0 txt "alert" 48 
    ]

confirm: func [txt [c-string!] return: [integer!] /local rep [integer!]][
    rep: MessageBox 0 txt "confirm" 4 
    if rep = 6 [rep: 1]  ; sinon rep = 7
    rep
]

rep: 0

until [
    alert "Hello, Red world !"
    rep: confirm "quit ?"   
    rep = 1
]