method select ele =
      selection <- Some ele ;
      self#on_select ele