external freeze : [>`text] obj -> unit = "ml_gtk_text_freeze"