NAME

WxPerl::TreeCtrlMapped - a more reasonably perlish wxTreeCtrl

ABOUT

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)

TODO

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.

Overrides

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().

AddRoot

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

AppendItem

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

InsertItem

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

PrependItem

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

Cleanup

These are overridden to cleanup the mappings.

Delete

  $tree->Delete($item);

DeleteAllItems

  $tree->DeleteAllItems;

DeleteChildren

  $tree->DeleteChildren($item);

Internals

_new_data

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

Or:

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

_map_new

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

_map_item

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

_clear

  $self->_clear;

Lookups

get_item

Get the item for a given $id.

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

get_id

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

Data

get_data

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

set_data

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

AUTHOR

Eric Wilhelm <ewilhelm at cpan dot org>

http://scratchcomputing.com/

COPYRIGHT

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

NO WARRANTY

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.

LICENSE

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

cpanm dtRdr

perl -MCPAN -e shell
install dtRdr