src/ocaml-lablgtk2-test.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(*
This file is part of MXE.
See index.html for further 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 ()