let del_entry (message : string) (entrie : Widget.entry Widget.widget) : unit =
let rec aux2 l res =
match l with [] -> List.rev res
|(entry,record,lst)::ls -> if(entrie=entry)
then aux2 ls res
else aux2 ls ((entry,record,lst)::res);
in
let rec aux l =
match l with [] -> ()
|(lab,value,entries,_)::ls -> if(lab=message)
then (entries:= (aux2 (!entries) []) ; aux ls)
else aux ls;
in
aux (!l_entry)