external forward_delete: [>`text] obj -> int -> unit = 
    "ml_gtk_text_forward_delete"