http://www.perlmonks.org?node_id=909773

hxdhan has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, I can not find how to change tree data value
$tree->add('1.1',-text=>'aaa',-data=>'aaa');
after add this node, I want to change data value of this node. can you tell me how to do it.

Replies are listed 'Best First'.
Re: how to change Tk::Tree data value
by zentara (Archbishop) on Jun 15, 2011 at 12:45 UTC
Re: how to change Tk::Tree data value
by Sandy (Curate) on Jun 15, 2011 at 14:33 UTC
    If you set your data to an anonymous hash, you can adjust it as required.
    $tree->add('1.1',-text=>'aaa',-data=>{-info=>'aaa'});
    then
    # get data my $d=$tree->infoData('1.1'); # change data $d->{-info}='new data';
    Next time you get the infoData, it will have your new information.

    UPDATE!

    or you can use entryconfigure

    # set entry $tree->add('1.1',-text=>'aaa',-data=>'aaa'); # change data for entry $tree->entryconfigure('1.1',-data=>'new data');