method unselect_dir dir =
      selection <- None ;
      behav#unselect dir