external _gtktext_init : unit -> unit = "ml_gtktext_init"