Module Tsdl.Sdl.Message_box

module Message_box: sig .. end


Message box Buttons


type 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 : Tsdl.Sdl.window option;
   title : string;
   message : string;
   buttons : button_data list;
   color_scheme : color_scheme option;
}