Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: WxPerl woes -- putting a Tree into a ScrolledWindow

by Jouke (Curate)
on Mar 18, 2002 at 13:55 UTC ( #152474=note: print w/replies, xml ) Need Help??

in reply to WxPerl woes -- putting a Tree into a ScrolledWindow

The main thing I'm missing (but that can be because of a copy-and-paste error on your side) is the definition of your 'MyCanvas' class.

my ($lcanvas) = $self->{LEFTCANVAS} = MyCanvas->new($splitter, -1,[0, +0], [400,400],'Test1'); my ($rcanvas) = $self->{RIGHTCANVAS} = MyCanvas->new($splitter, -1,[ +0,0], [400,400],'Test2');
You could also use a Wx::Panel instead of your MyCanvas, which is what I normally use to put controls on. That would result in something like this:
my ($lcanvas) = $self->{LEFTCANVAS} = Wx::Panel->new($splitter, -1,[0 +,0], [400,400]); my ($rcanvas) = $self->{RIGHTCANVAS} = Wx::Panel->new($splitter, -1, +[0,0], [400,400]);


I see I overlooked the definition of your MyCanvas. I don't have any documentation nor wxPerl itself at hand where I am now, but I suspect something is going wrong in your new() definition of MyCanvas. But since you're not really adding anything to the Wx::ScrolledWindow Class here, I'd just use a Wx::ScrolledWindow directly instead of subclassing it (the only thing you seem to add is letting the caller omit 1 parameter). Try that and let me know if it works.
Hope this helps

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://152474]
Corion is not sure if this is serious
[LanX]: I've already outlined. you might want to add a link
[LanX]: oopp ssorry ...
[LanX]: ... thought it's a root post

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2017-01-17 18:12 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (158 votes). Check out past polls.