external thaw : [>`text] obj -> unit = "ml_gtk_text_thaw"