Laslo Forro <[email protected]> writes: > http://pastebin.com/RDYzgwhs
As I see it your problem is that OnInit initialises the frame, and you
cannot pass a parameter to OnInit.
The solution is easy: don't use OnInit...
sub new {
my $ref=shift;
my $obj=shift;
my $self=$ref->SUPER::new(); # SUPER::new() calls OnInit
my $frame = MyFrame->new($self, $obj);
$frame->Show( 1 );
return $self;
}
sub OnInit { 1 } # you must have one and it must return true
HTH,
-- Johan
