external get_point : [>`text] obj -> int = "ml_gtk_text_get_point"