A Perl/Tk widget to edit recursively a data structure