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