Hi, On 24/05/2013 11:19, Helen Craigman wrote:
Hi Mark
In my code, I do use the CheckItem method, and that's working fine. The issue is, after I change the item check state, the event handler for EVT_TREELIST_ITEM_CHECKED does not get triggered,
Yes, this particular event is only triggered when the change is caused by the user interface. That is a wxWidgets design decision /feature / bug - depending on your view. The behaviour is documented though.
Studing the documentation, I undestood that the way to have the event handler invoked, is to programatically raise the "command event" (in this case: EVT_TREELIST_ITEM_CHECKED).
No. (as noted previously). You can created your own custom events but 'mimicking' a built in event is not the way to go. An actual wxTreeListEvent derives from wxNotifyEvent - you would really need to create the event properly.
Now an event handler has this in the beginning: Quote ---------- my( $this, $event ) = @_; $item = $event->GetItem; Unquote ------- So, since it's looking for an event object, I don't know how to call it, except for raising EVT_TREELIST_ITEM_CHECKED. And in order to raise the event programatically, you need wxEVT_TREELIST_ITEM_CHECKED. By the way, other command event constants do get exported in wxPerl (for example wxEVT_COMMAND_CHECKBOX_CLICKED).
true, but this isn't to allow end user usage, rather it it just the way the event 'macro' sub routines are implemented for this particular event.
How do you propose I should do it?
sub handle_item_change { my($self, $item) = @_; # do stuff with $item; } sub on_event_item_checked { my($self, $event) = @_; my $item = $event->GetItem; $self->handle_item_change( $item ); } sub set_item_state_by_code { my($self, $item, $newstate) = @_; $self->{treelist}->CheckItem($item, $newstate); $self->handle_item_change( $item ); } Regards Mark