sig

  type board

  type shortcuts

  exception Exit

  val create :

    ?shortcuts:Bogue.Main.shortcuts ->

    ?connections:Bogue.Widget.connection list ->

    ?on_user_event:(Tsdl.Sdl.event -> unit) ->

    Bogue.Window.t list -> Bogue.Main.board

  val get_monitor_refresh_rate : Bogue.Main.board -> int option

  val of_windows :

    ?shortcuts:Bogue.Main.shortcuts ->

    ?connections:Bogue.Widget.connection list ->

    ?on_user_event:(Tsdl.Sdl.event -> unit) ->

    Bogue.Window.t list -> Bogue.Main.board

  val of_layouts :

    ?shortcuts:Bogue.Main.shortcuts ->

    ?connections:Bogue.Widget.connection list ->

    ?on_user_event:(Tsdl.Sdl.event -> unit) ->

    Bogue.Layout.t list -> Bogue.Main.board

  val of_layout :

    ?shortcuts:Bogue.Main.shortcuts ->

    ?connections:Bogue.Widget.connection list ->

    ?on_user_event:(Tsdl.Sdl.event -> unit) ->

    Bogue.Layout.t -> Bogue.Main.board

  val make :

    ?shortcuts:Bogue.Main.shortcuts ->

    Bogue.Widget.connection list -> Bogue.Layout.t list -> Bogue.Main.board

  val run :

    ?vsync:bool ->

    ?before_display:(unit -> unit) ->

    ?after_display:(unit -> unit) -> Bogue.Main.board -> unit

  type shortcut_action = Bogue.Main.board -> unit

  val shortcuts_of_list :

    (Tsdl.Sdl.keymod * Tsdl.Sdl.keycode * Bogue.Main.shortcut_action) list ->

    Bogue.Main.shortcuts

  val exit_on_escape :

    Tsdl.Sdl.keymod * Tsdl.Sdl.keycode * Bogue.Main.shortcut_action

  val shortcuts_empty : unit -> Bogue.Main.shortcuts

  val shortcuts_add :

    Bogue.Main.shortcuts ->

    ?keymod:Tsdl.Sdl.keymod ->

    Tsdl.Sdl.keycode -> Bogue.Main.shortcut_action -> Bogue.Main.shortcuts

  val shortcuts_add_ctrl :

    Bogue.Main.shortcuts ->

    Tsdl.Sdl.keycode -> Bogue.Main.shortcut_action -> Bogue.Main.shortcuts

  val shortcuts_add_ctrl_shift :

    Bogue.Main.shortcuts ->

    Tsdl.Sdl.keycode -> Bogue.Main.shortcut_action -> Bogue.Main.shortcuts

  val get_shortcut :

    ?map:Bogue.Main.shortcuts ->

    ?keymod:Tsdl.Sdl.keymod -> int -> Bogue.Main.shortcut_action option

  val remove_shortcut :

    ?board:Bogue.Main.board -> ?keymod:Tsdl.Sdl.keymod -> int -> unit

  val add_shortcut :

    ?board:Bogue.Main.board ->

    ?keymod:Tsdl.Sdl.keymod -> int -> Bogue.Main.shortcut_action -> unit

  val make_sdl_windows :

    ?windows:Tsdl.Sdl.window list -> Bogue.Main.board -> unit

  val refresh_custom_windows : Bogue.Main.board -> unit

  val one_step :

    ?before_display:(unit -> unit) ->

    bool ->

    (unit -> unit) * (unit -> unit) ->

    ?clear:bool -> Bogue.Main.board -> bool

  val get_frame : unit -> int

  val quit : unit -> unit

end