method deactivate : unit = if activated then ( body#remove_common (w :> common) ; body#obj >>> Dragg_n_drop_move.clear () )