external get_name : [>`sourcelanguage] obj -> string
    = "ml_gtk_source_language_get_name"