method select_dir dir =
      selection <- Some dir ;
      self#on_select_dir dir