external set_view_mode : [>`tree] obj -> [`LINE|`ITEM-> unit
      = "ml_gtk_tree_set_view_mode"