mirror of https://git.wownero.com/dsc/mxe.git
16 lines
293 B
OCaml
16 lines
293 B
OCaml
(*
|
|
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 ()
|