1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| #!/usr/bin/perl --
use strict;
use warnings;
use Tkx;
Tkx::package_require("Tktable");
my $mw = Tkx::widget->new(".");
my %hash =
( # data to display for example
'1,0' => 'Vertical',
'2,0' => 'Lng',
'3,0' => 'Lateral',
'0,1' => 'Expected shifts (A)',
'0,2' => 'Shifts based on img alignment (B)',
'0,3' => '|A-B|',
);
my $t = $mw->new_table
(
-rows => 4,
-cols => 4,
-cache => 1,
-variable => \%hash,
);
$t->g_grid(-column => 0, -row => 0, -sticky => "news");
# ce que j'ai tenté mais qui ne fonctionne pas.
$t->g_grid_columnconfigure(0, -weight => 2);
$t->g_grid_columnconfigure(1, -weight => 10);
$t->g_grid_columnconfigure(2, -weight => 5);
$t->g_grid_columnconfigure(3, -weight => 5);
Tkx::MainLoop(); |
Partager