let create_view topwin file = let v = new view topwin set_active_view on_view_destroy file in views := v :: !views; v