sig
type button_flags
val button_returnkey_default : Tsdl.Sdl.Message_box.button_flags
val button_escapekey_default : Tsdl.Sdl.Message_box.button_flags
type button_data = {
button_flags : Tsdl.Sdl.Message_box.button_flags;
button_id : int;
button_text : string;
}
type flags
val error : Tsdl.Sdl.Message_box.flags
val warning : Tsdl.Sdl.Message_box.flags
val information : Tsdl.Sdl.Message_box.flags
type color = int * int * int
type color_scheme = {
color_background : Tsdl.Sdl.Message_box.color;
color_text : Tsdl.Sdl.Message_box.color;
color_button_border : Tsdl.Sdl.Message_box.color;
color_button_background : Tsdl.Sdl.Message_box.color;
color_button_selected : Tsdl.Sdl.Message_box.color;
}
type data = {
flags : Tsdl.Sdl.Message_box.flags;
window : Tsdl.Sdl.window option;
title : string;
message : string;
buttons : Tsdl.Sdl.Message_box.button_data list;
color_scheme : Tsdl.Sdl.Message_box.color_scheme option;
}
end