in reply to Increase The coloumn size in Perl Tk?

use Tk;
use Tk::Table;
$t = MainWindow->new(-title=>"tablesize")
    ->Table(rows => 5, columns => 5)->pack;
for $x (0 .. 4) {
    for $y (0 .. 4) {
        $t->put($x, $y, "$x:$y");
    }
};
$t->parent->Button(-text    =>"+",
                   -command => sub {
                       $x=$t->get(2,3);
                       $x->configure(-width => $x->cget("-width") + 1)
                   }
               )->pack;
MainLoop;

[download]

Replies are listed 'Best First'.
Re^2: Increase The coloumn size in Perl Tk?
by Gulliver (Monk) on May 10, 2011 at 14:08 UTC

    I ran your code and it works great. I tried to add a '-' button but can't get it to work. Any ideas?

    use Tk;
use Tk::Table;
$t = MainWindow->new(-title=>"tablesize")
    ->Table(rows => 5, columns => 5)->pack;
for $x (0 .. 4) {
    for $y (0 .. 4) {
        $t->put($x, $y, "$x:$y");
    }
};

$t->parent->Button(-text    =>"+",
                   -command => sub {
                       $x1=$t->get(2,2);
                       $x1->configure(-width => $x1->cget("-width") + 
+1);
                   }
               )->pack;
               
$t->parent->Button(-text    =>" - ",
                   -command => sub {
                       $x1=$t->get(2,2);
                       $x1->configure(-width => $x1->cget("-width") - 
+1);
                   }
               )->pack;
MainLoop;

    [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom