Re: Help with Scrolled Pane mouse wheel binds

[Phinix]

in reply to Help with Scrolled Pane mouse wheel binds

Hey Zen. Well, I saw that one actually, and tried it on my example above, which worked. Here is the code I used to test it:

#!/usr/local/bin/perl -w

use strict;
use Tk;
require Tk::DynaMouseWheelBind;

my $mw = new MainWindow;
my @scrollables = ('Tk::Pane');
$mw->DynaMouseWheelBind(@scrollables);

my $containerframe = $mw-> Frame()-> form(-left => '%0', -right => '%1
+00', -top => '%0', -bottom => '%100');
my $scrollpane = $containerframe->Scrolled('Pane', -scrollbars => 'oe'
+, -sticky => 'nsew')-> form(-left => '%0', -right => '%100', -top => 
+'%0', -bottom => '%100');
$scrollpane = $scrollpane->Subwidget('scrolled');
my $innerframe = $scrollpane->Frame()-> form(-left => '%0', -right => 
+'%100', -top => '%0', -bottom => '%100');
$innerframe-> Label(-text => "test\n")-> pack for 1 .. 112;

MainLoop;

However, when I try to incorporate it the exact same way into my working project I get errors:

 error:window ".frame.notebook.page3.frame.frame.frame1.frame.pane" is
+n't packed
 at C:/Perl/site/lib/Tk/Widget.pm line 1218, <PLUGINS> line
39.
 at C:/Perl/site/lib/Tk/After.pm line 90

Tk::Error: window ".frame.notebook.page3.frame.frame.frame1.frame.pane
+" isn't pa
cked at C:/Perl/site/lib/Tk/Widget.pm line 1218, <PLUGINS> l
ine 39.
 at C:/Perl/site/lib/Tk/After.pm line 90
 Tk callback for pack
 Tk::After::once at C:/Perl/site/lib/Tk/After.pm line 90
 [once,[{},after#38,idle,once,[{},packscrollbars]]]
 ("after" script)

[Phinix]

Fixed it... Just wish I knew how. In my program I had to remove the line "$scrollpane = $scrollpane->Subwidget('scrolled');", after which it works as intended. If anyone can tell me why I would sure appreciate it!

EDIT: Probably something to do with my scrolled frame being several levels embedded and also on a Notebook tab. Just a note, removing that line will prevent sub-windows within your main scrolled Pane scrolling on their own. There is probably a work-around to get both working but for now this does what I need.

Thanks!

[Anonymous Monk]

You're talking to yourself there Phinix, seriously :)

[zentara]

Just wish I knew how. In my program I had to remove the line "$scrollpane = $scrollpane->Subwidget('scrolled');",

That error probably comes from the line

$scrollpane = $scrollpane->Subwidget('scrolled');

You can't have $scrollpane in both variable positions. You would use

my $real_pane = $scrollpane->Subwidget('scrolled');

but that didn't work for me either. I also suspect it has something to do with you using nested frames with the ScrolledPane. My first guess as to why, is possibly the expand and fill options of the frames. I'm not that familiar with the Form manager.