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)