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