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);
################################################################