method select_dir dir =
      selection <- Some dir ;
      behav#select dir