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