method
unselect (dir : string) = (box
#
display_dir
None
: unit)