let get_iter m p = let i = alloc_iter () in if get_iter m i p then i else failwith "GtkTree.TreeModel.get_iter"