develooper Front page | perl.wxperl.users | Postings from August 2008

strange error

Thread Previous | Thread Next
From:
Octavian Rasnita
Date:
August 26, 2008 07:25
Subject:
strange error
Message ID:
B9BFDA34CB2F4F91A8B18457DB6A7C17@teddy
Hi,

I made an app with a menu that has an "Exit" item which if clicked, it is 
handled by the following event handler:

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

my $result = Wx::MessageBox(t("Are you sure you want to close the 
application?"), t("Exit"), wxYES|wxNO);

if ($result == wxYES) {
$self->Destroy;
}
}

If I click the "no" button, all works fine, but if I choose yes to close the 
application, it appears a perl interpreter error window.

It is strange, because if I don't open that MessageBox, it doesn't appear 
that error, although the same code is executed.
I've seen that even if I open a simple message box in the event handler 
subroutine and I just print a message without checking for a return code, it 
still gives that error.

The following handler works fine:

sub OnExit {
my ($self, $event) = @_;
$self->Destroy;
}

Does it happen for you also or I need to re-install perl or WxPerl?

Thank you.

Octavian


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About