src/ocaml-lablgtk2-test.ml


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 ()