http://www.perlmonks.org?node_id=1008176

Phinix has asked for the wisdom of the Perl Monks concerning the following question:

Good day all,

I was looking for some help getting a scrolled Pane frame to move with mouse wheel binds. Basically I have a container frame, and inside that a scrolled Pane, and inside that an inner frame where I plan to put my stuff.

Here's a sample:

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

use strict;
use Tk;
use Tk::Pane;

my $mw = new MainWindow;

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');
my $innerframe = $scrollpane->Frame()-> form(-left => '%0', -right => 
+'%100', -top => '%0', -bottom => '%100');
$innerframe-> Label(-text => "test\n")-> pack for 1 .. 112;
MainLoop;

[download]

That is all well and good, only I've been having trouble with the syntax for adding a mouse wheel bind that will scroll the Pane and thus the inner content frame attached to it.

Replies are listed 'Best First'.
Re: Help with Scrolled Pane mouse wheel binds
by zentara (Archbishop) on Dec 10, 2012 at 23:27 UTC
[reply]
Re: Help with Scrolled Pane mouse wheel binds
by Phinix (Acolyte) on Dec 10, 2012 at 23:55 UTC

    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;

    [download]

    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)

    [download]
[reply]
[d/l]
[select]
      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');

      [download]
      You can't have $scrollpane in both variable positions. You would use 
      my $real_pane = $scrollpane->Subwidget('scrolled');

      [download]
      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.
      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh
[reply]
[d/l]
[select]

      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!
[reply]
        You're talking to yourself there Phinix, seriously :)
[reply]

Back to Seekers of Perl Wisdom