Yes, but as I still miss sg. Apologies. As I understand (see code below):
From main I call myApp-new() - myApp-SUPER::new() here I can not pass
my $obj for the above reason.
myApp-SUPER::new() calls internally OnInit, and no $obj has room in this
process. It returns me an empy HASH.
In
Laslo Forro getfo...@gmail.com 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
I have tried it, but still sg. is out of the pic.
I have modified the code, see http://pastebin.com/YfMpZ4Cd
I still can not see my $obj in Onclick...
Frame shows up fine, but in Onclick $self is an empty hash -
MyFrame=HASH(xx)
On Sun, Oct 24, 2010 at 2:01 PM, Johan Vromans
What was missing, was a bug I my code.
This works now, commented.
Thanx a lot.
http://pastebin.com/UKRAmDxw
On Sun, Oct 24, 2010 at 3:10 PM, Laslo Forro getfo...@gmail.com wrote:
I have tried it, but still sg. is out of the pic.
I have modified the code, see http://pastebin.com/YfMpZ4Cd
I
Hi there,
I am seeking for the wisdom of yours to help me out with this.
I would like to pass a blessed object to MyApp ( the scenario is as in the
tutorial: http://wxperl.sourceforge.net/tutorial/tutorial3.html ).
In 'main' I try to say
my $app=myApp-new($obj)
Unfortunately, if I try this:
sub
Laslo Forro getfo...@gmail.com writes:
my $app=myApp-new($obj)
So you pass an object arg to your derived class.
sub new {
my ($ref,$obj)=...@_;
This is the constructor os your derived class.
my $self=$ref-SUPER::new($obj);
Here you pass the object to the super class constructor.