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