method remove_drop_action d f = drop_list := List.filter (fun (dd,ff) -> (dd <> d) && (ff != f)) !drop_list