[perl-win32-gui] SetItem for TreeView

[Timothy Thomas]

Does anyone know if you can use the SetItem command to rename a the -text part of a treeview node? See code below for
exact syntax I am trying:
    Any suggestions on how to change the text on a node would be appreciated.
                Tim Thomas

sub EditNode_Click
 {
 my($TVI) = $TV->SelectedItem();
 if($TVI)
  {
  my %itemdata = $TV->GetItem($TVI);
  print "Current Value: ", $itemdata{-text}, "\n";
  print "Enter new value: ";
  $value=<STDIN>;
  chomp($value);
  print "Setting $value as new value.";
  $itemdata{-text}=$value;
  $TVI = $TV->SetItem(%itemdata);

#  $TVI->SetItem(-text=>$value);
#  $TV->SetItem($TVI);

  $TV->Reset();
  }
 return 1;
 }