[wxperl-users] Faking Events

[Bradley K. E. <bk...@bk...>]

A coworker of mine asked about this previously, 
http://sourceforge.net/mailarchive/forum.php?thread_id=30118212&forum_id=3459, 
and I am working on implementing our testing strategy.

Based on input from Mattia in the above thread, and thanks to 
wxEvent::SetEventObject now being wrapped, I'm attempting to generate 
events with the following code:

my $event = Wx::CommandEvent->new(wxEVT_COMMAND_BUTTON_CLICKED);
$event->SetEventObject( $button );
$window->GetEventHandler()->ProcessEvent($event);

See the attached minimal example and you'll understand what I am trying 
to accomplish.

There are no error messages, but it is not working. Am I missing 
something? Doing something wrong? I'm not sure where to go from here and 
any help would be appreciated.

Thanks,

Brad