Re: [wxperl-users] Implemented controls

[Mattia B. <mb...@ds...>]

> On Sun, 16 Dec 2001 11:49:16 +0100, you wrote:
> 
> >> - Right-Click event ( I ask because this has been difficult in
> >> Win32::GUI )
> 
> >Yes;
> 
> Great! But ..
> 
> Where can I find a sample for a Right-Click.. or a lead in a document? I have a
> GUI where I need to (need as in: would like to) detect a right-click on a
> button.

docs for wxMouseEvent -> Event table macros -> EVT_RIGHT_DOWN(func)
just remember that in wxPerl you need to pass an addition Wx::EvtHandler ( any 
Wx::Windows is a Wx::EvtHandler ) as the
first parameter ( so for wxPerl EVT_RIGHT_DOWN($evthandler,$coderef);

use Wx::Event qw(EVT_RIGHT_DOWN);

my $button = new Wx::Button( ... );

EVT_RIGHT_DOWN( $button, sub { ... } );
# or
EVT_RIGHT_DOWN( $button, \&OnRightDown );

Regards
Mattia