Re^2: Scrollbars in Perl::Tk

[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;