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