(*
This file is part of MXE. See LICENSE.md for licensing information.
*)

open GlGtk

let destroy () = GMain.Main.quit ()

let _ =
  let _ = GtkMain.Main.init () in
  let window = GWindow.window () in
  let _ = window#connect#destroy ~callback:destroy in
  window#show ();
  GMain.Main.main ()