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

module GtkWindowExample

open Gtk

let main() =
  Application.Init()
  use wnd = new Window("Main Window")
  wnd.DeleteEvent.Add( fun args ->
    Application.Quit()
    args.RetVal <- true
  )
  wnd.ShowAll()
  Application.Run()
  ()

main()