method activate_dragg   =
    self#obj >>> Dragg_n_drop_down.bind
      (dragg_begin (self :> common) drop_list shadow)