You didn't ask the question with much clarity, but it seems you want to insert text into a Text widget. The problem is that the Text widget dosn't understand columns, but you could hack some tags to indent a certain number of spaces. You really need to tell use the real world problem you are trying to solve, you probably could use another widget better suited to the task....like maybe a TableMatrix or Spreadsheet.
You could easily put 3 text widgets side-by-side, like this. All you need to specify column is enter the text number into the hash storing the Text widgets.
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Text;
use Tk::Pane;
my $mw = tkinit;
my $pane = $mw->Scrolled( 'Pane', -scrollbars => 'e', )
->pack( -expand => 1, -fill => 'both' );
my %hash;
foreach my $num(1,2,3){
$hash{$num}{'text'} = $pane->Text(
-background => '#003366',
-foreground => 'white',
-width => 20,
)->pack( -side => 'left', -fill => 'both', -expand => '1', );
$hash{$num}{'text'}->insert( 'end', "some text here");
}
my $exit_bttn = $mw->Button(
-text => 'Quit',
-background => 'grey',
-foreground => 'black',
-relief => 'groove',
-command => sub { exit }
)->pack();
MainLoop();
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.