Webmaster Forum / Perl / Tk / June 2008

Hi All ,
Pls see below a price of code that uses table matrix widget. What I
have done is that I have increased the width of the last column. Now,
if you try to move the horizontal scrollbar, it move move only to a
certain distance and will not move after that and hence, the data in
the last column of the spreadsheet cannot be viewed.
Pls suggest what the issue could be & the possible solution.

=====================================================
use Tk;
use TableMatrix;
use Tk::Balloon;
my $mw;
$mw = MainWindow->new();
$mw->geometry("500x400+0+0");
$mw->title("Main Window");

my $sheet = $mw->Scrolled('TableMatrix',
       -rows => 10,
       -cols => 5,
       -width => 6,#this is req . See documentation of this
parameter.
       -height => 0,
       -rowseparator => "\n",
       -titlerows => 1,-titlecols => 1,
       -resizeborders => 'both',-scrollbars => 'osoe',
       -wrap => 0,
       -exportselection => 0,
       -colstretchmode => 'last',
       -rowstretchmode => 'none',
       -selectmode => 'single',
       -validate => 1, -sparsearray => 0 ,-selecttype => 'cell',
       -anchor =>'w',-flashmode => 'off',-drawmode => "slow"
       )->pack( -fill =>'both', -pady => 0, -expand=>1);

$sheet->colWidth(4 => 280);

my $spreadSheetVar = $sheet->cget( -variable );
for (my $i = 1; $i < 10 ; $i++)
{
   for (my $j = 1; $j < 5 ; $j++)
   {
       if($j == 4)
       {
           $spreadSheetVar->{ "$i,$j" } =
"CheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHHCheckingAAABBBCCCDDDEEEFFFGGGHHH
\n";
       }
       else
       {
           $spreadSheetVar->{ "$i,$j" } = "A\n";
       }
   }
}

   $sheet->configure( -rows=> 10 );
   $sheet->configure( -variable => $spreadSheetVar);
$mw->deiconify();
$mw->raise();

MainLoop;

=====================================================