Re: Scrolled within a Scrolled

[Sandy]

This works for me on Windows and Solaris (perl 5.8.8)

use strict;
use Tk;
my $mw = MainWindow->new;
    $mw->geometry("1200x850");

my $p = $mw->Scrolled('Pane', -scrollbars => 'se',
                              -width=>'1200',
                              -height=>'850'
                              )->pack;

my $listbox1=$p->Scrolled('Listbox',
                              -scrollbars=>'e',
                              -exportselection => 0
                              )->place(-anchor=>'nw',
                                       -x=>"50",
                                       -y=>"150");

$listbox1->configure(-height=>'35',
                     -width=>'25',
                     -selectmode => "browse");

$listbox1->insert('end',1..150);

MainLoop();

Is it perhaps because you forgot the MainLoop() ??

[Commy_Code_Monkey]

Interesting... as a separate file it also works for me... But in with the rest of my code, the scrolled listboxes still refuse to show up. (No I did not forget MainLoop, but I'd ask me that too) If I change $listbox1 to a non-scrolled widget... it displays. ie...

#my $listbox1=$p->Scrolled('Listbox',
#            -scrollbars=>'e',
#            -exportselection => 0
#            )->place(-anchor=>'nw',
#                -x=>"50",
#                -y=>"150");
my $listbox1=$p->Listbox()->place(-anchor=>'nw',-x=>"50",-y=>"150");  
+          
                
    $listbox1->configure(-height=>'35', -width=>'25', -selectmode => "
+browse");

It just does NOT like the scrolled option. I'm running ActivePerl 5.10.0.1004 on a WinXP machine btw.

[Commy_Code_Monkey]

AFter some additional tinkering and even more swearing... I've found that the Pane widget, doesn't actually act like a scrolled frame as the docs said. They apparently have a limit on how many scrolled widgets they can contain. That's why my example code works... and my actual code did not. I was able to bypass this problem by specifying a new frame for each scrolled widget in the pane. Is there a subroutine to get those 4 hours of my life back...?

my $p = $mw->Scrolled('Pane', -scrollbars => 'se',
                              -width=>'1200',
                              -height=>'850'
                              )->pack;

my $fr1=$p->Frame()->place(-anchor=>'nw',
                           -x=>"50",
                           -y=>"150");;
my $listbox1=$fr1->Scrolled('Listbox',
                              -scrollbars=>'e',
                              -exportselection => 0
                              )->pack;

my $fr2=$p->Frame()->place(-anchor=>'nw',
                           -x=>"50",
                           -y=>"150");
my $listbox2=$fr1->Scrolled('Listbox',
                              -scrollbars=>'e',
                              -exportselection => 0
                              )->pack;