Re: Re: Scrollbars in Perl::Tk

[PodMaster]

You cannot pass Frame widget to Scrolled.

I know you can(works for me).

#!/usr/local/bin/perl -W
#tk.scroll.frame.pl
use Tk;
use strict;
use vars qw($top $drop);


$top = new MainWindow;
$top->Label(-text => "Enter the scroll frame")->pack;
$top = $top->Scrolled('Frame', -scrollbars => "osoe",)->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
MainLoop;

Anonymous Monk isn't showing enough code, but my ESP tells me he's got a logical error (not packing the frame he needs/wants it or not having it as a child of his scrollable frame or something).

update: screenshot on my Win2K box, perl5.6.1, Tk 800.025.

[converter]

For what it's worth, the example you posted runs without errors here, but yields a window without scrollbars.

Tk 800.024, Perl 5.8.0, on a gentoo linux install running mostly stable packages.