method unselect_dir dir =
      selection <- None ;
      self#on_unselect_dir dir