dont show window before event loop starts

2024-01-19 14:13:29 -05:00 · 2024-01-19 14:13:29 -05:00 · d5b7821ec7
parent a1a460e2e3
commit d5b7821ec7
1 changed files with 1 additions and 1 deletions
--- a/src/s2/window.ml
+++ b/src/s2/window.ml
@ -6,7 +6,7 @@ exception Quit
 type t = Sdl.window

 let make ~title =
-  let flags = Sdl.Window.(opengl + resizable - shown) in
+  let flags = Sdl.Window.(opengl + resizable + hidden) in
  let window =
    Sdl.create_window_exn
      ~w:1024 ~h:800