This may not solve the problem exactly. But here's an example of using one Tk::Text widget to contain other Tk widgets, even other Text widgets.
#!/usr/bin/perl -w
use strict;
use Tk;
my $MW = MainWindow->new;
my $TX = $MW->Scrolled( 'Text', -wrap => 'none' )->pack( -expand => 'y
+', -fill => 'both' );
my $t1 = $TX->Scrolled( "Text", width => 20 );
my $t2 = $TX->Scrolled( "Text", width => 20 );
my $t3 = $TX->Scrolled( "Text", width => 20 );
my $t4 = $TX->Scrolled( "Text", width => 20 );
my $t5 = $TX->Scrolled( "Text", width => 20 );
$TX->window('create', 'end', -window => $t1);
$TX->window('create', 'end', -window => $t2);
$TX->window('create', 'end', -window => $t3);
$TX->window('create', 'end', -window => $t4);
$TX->window('create', 'end', -window => $t5);
MainLoop;
It is left as an exercise for the reader to get all that to size in an eye-pleasing way.
PS in 'perldoc Tk::Scrollbar' there is mention of an '-orient' attribute, but attempts to use it (on my machine) fail. Very disappointing.
I also suggest looking at a scrolling Tk::Canvas widget as the container for multiple widgets, but don't have a facile example since Canvas is a little more complex. The 'widget' demo offers some hints, but nothing to latch onto.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.