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