WxPerl::TreeCtrlMapped - a more reasonably perlish wxTreeCtrl

I want a better TreeCtrl

Troubles with wxTreeCtrl: o data is ad-hoc nested in TreeCtrl using TreeItemData o no random-access to tree without mapping id => TreeItemId o no reverse-lookup for id without putting it in TreeItemData

So, we want get_id($item), get_item($id)

And, a way to store a single object as the data (that's not incompatible with the id mapping.) If I'm going to store the id and an object, I would have to say Wx::TreeItemData->new({id => $id, object => $object), which is just too much given the $tree->GetPlData()->{object} calls that would always be following it around.

  get_data($id|$item)
  set_data($id|$item, $data)

Probably some more convenient get_children() and such methods.

Maybe overriding the Wx::TreeItemId to allow it to have a data() method, but this could get somewhat tangled WRT events.

In each of these methods, the TreeItemData parameter in the base class is replaced with a scalar $id, or an array [$id, $object].

$object can be whatever you want it to be. It will be returned when you call get_data().

  $tree->AddRoot($text, $image, $selimage, $id_or_array);

  $tree->AppendItem($parent, $text, $image, $selimage, $id_or_array);

  $tree->InsertItem($parent, $prev, $text, $img, $selimg, $id_or_array);

  $tree->PrependItem($parent, $text, $image, $selImage, $id_or_array);

These are overridden to cleanup the mappings.

  $tree->Delete($item);

  $tree->DeleteAllItems;

  $tree->DeleteChildren($item);

  my $data = $self->_new_data($id);

Or:

  my $data = $self->_new_data([$id, $object]);

  my $item = $self->_map_new($item);

  $self->_map_item($id, $item);

  $self->_clear;

Get the item for a given $id.

  my $item = $self->get_item($id);

  my $id = $self->get_id($item);

  $self->get_data($id|$item);

  $self->set_data($id|$item, $data);

Eric Wilhelm <ewilhelm at cpan dot org>

http://scratchcomputing.com/

Copyright (C) 2006 Eric L. Wilhelm and OSoft, All Rights Reserved.

Absolutely, positively NO WARRANTY, neither express or implied, is offered with this software. You use this software at your own risk. In case of loss, no person or entity owes you anything whatsoever. You have been warned.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.