Re: Scrollbars in Perl::Tk

[elef]

I bumped into this old thread looking for a way to make my main window scrollable. Both the suggested solutions work for me, but both are incomplete. With the code posted, the frame remains a postage stamp sized rectangle in the middle of the mainwindow when the mainwindow is resized. I added the options (-fill => 'both', -expand => 1) to pack for the frame (and pane) and now things look as they should.
For some strange reason, Scrolled even shrinks the frame it's added to. If I run PodMaster's code as is, the frame is too small to fit all the text.
Here's what PodMaster's code generates for me:
Default view of the window generated after removing the scrollbars from the code: http://dl.dropbox.com/u/16377950/kepek/scrollframe_1.png
PodMaster's version with what are intended to be optional scrollbars: http://dl.dropbox.com/u/16377950/kepek/scrollframe_2.png - note that both scrollbars are showing up even though they should disappear when the window is this large, and that text is left off both vertically and horizontally.
After adding (-fill => 'both', -expand => 1): http://dl.dropbox.com/u/16377950/kepek/scrollframe_3.png - horizontal scrollbar disappeared as the window is wide enough to show all text, vertical scrollbar showing up.

[Anonymous Monk]

I bumped into this old thread looking for a way to make my main window scrollable.

Hi

Please don't bump, zombies are hard to see :)

You should post a new question in Seekers Of Perl Wisdom and link to this old one

In the meantime, you could however consider this node for SOPW-ification, your choice :)

Regarding the code, I see the same images as you, but I'm not sure what behavior you're after or what you consider a problem.

Consider adding color :)

#!/usr/bin/perl --
use Tk;
use strict;
use vars qw($top $drop);
$top = tkinit( qw/ -background green  /);
$top->Label( qw/ -background red /,
-text => "Enter the scroll frame"
)->pack;
$top = $top->Scrolled(
    'Frame',
    qw/ -background pink  -scrollbars  osoe /
)->pack( qw/ -fill both -expand 1 / );
$top->Label(
-text => "Inside the scroll frame $_"
)->pack for 1 .. 12;
MainLoop;