dont show window before event loop starts
This commit is contained in:
parent
a1a460e2e3
commit
d5b7821ec7
|
@ -6,7 +6,7 @@ exception Quit
|
||||||
type t = Sdl.window
|
type t = Sdl.window
|
||||||
|
|
||||||
let make ~title =
|
let make ~title =
|
||||||
let flags = Sdl.Window.(opengl + resizable - shown) in
|
let flags = Sdl.Window.(opengl + resizable + hidden) in
|
||||||
let window =
|
let window =
|
||||||
Sdl.create_window_exn
|
Sdl.create_window_exn
|
||||||
~w:1024 ~h:800
|
~w:1024 ~h:800
|
||||||
|
|
Loading…
Reference in New Issue