[wxperl-users] How to invoke an event manually?

[Jouke V. <jo...@pv...>]

Hi,

I'm looking for a way to invoke a command manually. I mean to do this:

# Define the eventhandler for the button  
EVT_BUTTON($this, $this->{button0}, sub {print "gelukt!\n"});
# Invoke it when someone clicks anywhere in the panel. This obviously
# does not work:
EVT_LEFT_DOWN ($this->{TOPPANEL}, sub {$this->{button0}->Invoke});

I'm looking for a way to make this "Invoke" method work. 
I've looked into ProcessEvent, but that wants an event as parameter, and
I can't find a way to create a "Click Button Event" object.

Any idea?
-- 
*-----------------------------------------------*
|Jouke Visser            |jo...@pv...      |
|Perl GUI Geek           |http://www.pvoice.org |
*-----------------------------------------------*
PS: Notice new mailaddress!!