diff options
| author | William <r.3@libertysurf.fr> | 2012-10-04 12:40:46 (GMT) |
|---|---|---|
| committer | William <r.3@libertysurf.fr> | 2012-12-13 13:02:29 (GMT) |
| commit | 1dcda3d89e85fbe0db780e59f2ec98d7e640fd7c (patch) | |
| tree | 09f8b28b5eb6d71edab8f2b176e43518b8404405 /src/ocaml-lablgtk2-test.ml | |
| parent | 2db761d14a56392a1a58fdb606785097c4d13430 (diff) | |
| download | mxe-1dcda3d89e85fbe0db780e59f2ec98d7e640fd7c.zip mxe-1dcda3d89e85fbe0db780e59f2ec98d7e640fd7c.tar.gz mxe-1dcda3d89e85fbe0db780e59f2ec98d7e640fd7c.tar.bz2 | |
add package ocaml-lablgtk2
Diffstat (limited to 'src/ocaml-lablgtk2-test.ml')
| -rw-r--r-- | src/ocaml-lablgtk2-test.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/ocaml-lablgtk2-test.ml b/src/ocaml-lablgtk2-test.ml new file mode 100644 index 0000000..7639ac8 --- /dev/null +++ b/src/ocaml-lablgtk2-test.ml @@ -0,0 +1,10 @@ +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 () |