let cast w : tree_model obj = Object.try_cast w "GtkTreeModel"