Re^3: Passing arguments to event handlers in WxPerl

[zentara]

Can you make a working code example, that dosn't use any OO program? That would identify wheter it's a Wx problem, or an improper object model which you use.

You could also check the reference type of $self to see what you are getting.

sub Combobox1action {
    my( $self, $event ) = @_;

print $self, "\n";

    $self->SetTitle( 'Combo box selected' );
}

If $self prints out to be a WxWidget Combobox, your code should work. But if $self turns out to be the package you are holding your code in, MyFrame, a WxWidget frame, then you will need to find a way of clearly identifying the Combobox.

[pwn01]

When I print $self and $event, I get the following output: MyFrame=HASH(0x190ac84) Wx::CommandEvent=SCALAR(0x190aec4) The first value is the value of $self, the second is that of $event.