method update =
(
match selection with
None -> ()
| Some ele ->
selection <- None ;
self#unselect ele
);
store#clear ();
let modules = get_modules_from_dir dir in
List.iter (fun m -> self#insert_ele (ME (Element_module m))) modules