let create_view topwin file = new view topwin file on_multiclip_destroy (fun o -> last_active_multiclip := Some o)