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();
|