if not (same_element root_selected elem) then selection_changed elem ;
first_selected <- elem)) ;
ignore
(self#connect#select_over
if not (same_element root_selected elem) then selection_changed elem ;
first_selected <- elem)) ;
ignore
(self#connect#select_over