method reset_data = fun name -> select_w#store1#clear (); select_w#store2#clear (); self#_set_constr_model empty_constr_store; glade#name_entry#set_text name