external _gtkwindow_init : unit -> unit = "ml_gtkwindow_init"