summaryrefslogtreecommitdiffstats
path: root/src/ocaml-lablgtk2-test.ml
blob: 3f265a712a8f9e9a2f46f56c925a964283e12858 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(*
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 ()