external _gtkbutton_init : unit -> unit = "ml_gtkbutton_init"