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