Select Code to Download

$tree->add('1.1',-text=>'aaa',-data=>{-info=>'aaa'});

# get data
my $d=$tree->infoData('1.1');

# change data
$d->{-info}='new data';

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

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