Can anyone recommend a nice replacement in Tkx for Perl/tk's
"Scrolled('Pane'" ?  

I have tried Bwidget Scrolledwindow/Scrolledframe combo with no luck.
Followed the stand examples out there, but get error on the first
attempt to add a widget to it.  Anyone have any suggestion as to what is
wrong or alternatives for a scrolled pane ?:

Can't call method "new_listbox" without a package or object reference at
lesson.pl line 321.

################################################################
my $scrolledwindow   =
$rightframe->new_ScrolledWindow(-auto=>'none',-size=>8,-relief=>'sunken',-borderwidth=>2);
my $scrolledframe  = $scrolledwindow->new_ScrollableFrame();
$scrolledwindow->setwidget($scrolledframe);   
my $scrolled   = $scrolledframe->getframe();


 my $lb = $scrolled->new_listbox(
                -height => 55
                );

 $lb->g_pack(
    -side=>'left',
    -anchor=>'w',
    -fill=>'both',
    -expand=>0,
    -padx=>2,
    -pady=>2,
    );
my $s = $scrolled->new_scrollbar(
                -command => [$lb, "yview"], 
          -orient => "vertical"
                 );   
$s->g_pack(
    -side=>'left',
    -anchor=>'w',
    -fill=>'y',
    -expand=>0,
    -padx=>0,
    -pady=>0,
    );  
$lb->configure(-yscrollcommand => [$s, "set"]);


$scrolledwindow->g_pack(-fill=>'both',-expand=>1);

################################################################


Reply via email to