method
select v =
selection <-
Some
v ;
self
#
on_select v