15 lines
392 B
OCaml
15 lines
392 B
OCaml
open! Import
|
|
include Tsdl.Sdl
|
|
|
|
exception Error of string
|
|
|
|
let or_exn = function
|
|
| Ok x -> x
|
|
| Error (`Msg e) -> raise (Error e)
|
|
|
|
let create_window_exn t ~w ~h fl = create_window t ~w ~h fl |> or_exn
|
|
let gl_create_context_exn w = gl_create_context w |> or_exn
|
|
let gl_make_current_exn w gl = gl_make_current w gl |> or_exn
|
|
let gl_set_swap_interval_exn i = gl_set_swap_interval i |> or_exn
|
|
|