Module Sdl.Message_box

Message box Buttons

type button_flags
val button_no_default : button_flags
val button_returnkey_default : button_flags
val button_escapekey_default : button_flags
type button_data = {
button_flags : button_flags;
button_id : int;
button_text : string;
}

Message box flags

type flags
val error : flags
val warning : flags
val information : flags

Message box color scheme

type color = int * int * int

r, g, b from 0 to 255

type color_scheme = {
color_background : color;
color_text : color;
color_button_border : color;
color_button_background : color;
color_button_selected : color;
}

Message box data

type data = {
flags : flags;
window : window option;
title : string;
message : string;
buttons : button_data list;
color_scheme : color_scheme option;
}