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 = {
  1. button_flags : button_flags;
  2. button_id : int;
  3. 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 = {
  1. color_background : color;
  2. color_text : color;
  3. color_button_border : color;
  4. color_button_background : color;
  5. color_button_selected : color;
}

Message box data

type data = {
  1. flags : flags;
  2. window : window option;
  3. title : string;
  4. message : string;
  5. buttons : button_data list;
  6. color_scheme : color_scheme option;
}