let l_entry = (ref [] : (string * string ref * (Widget.entry Widget.widget * string Pervasives.ref * Widget.listbox Widget.widget) list Pervasives.ref * string list) list Pervasives.ref)