let on_multiclip_destroy o = match !last_active_multiclip with | Some o2 when Oo.id o = Oo.id o2 -> last_active_multiclip := None | Some _ | None -> ()