Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: Scrollbars in Perl::Tk

by Anonymous Monk
on Jan 13, 2012 at 10:41 UTC ( #947726=note: print w/ replies, xml ) Need Help??


in reply to Re: Scrollbars in Perl::Tk
in thread Scrollbars in Perl::Tk

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;


Comment on Re^2: Scrollbars in Perl::Tk
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://947726]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2015-07-07 20:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls