Bonjour,

je suis contraint d'utiliser Tkx. je ne peux pas passer en Tk ni uploader un quelconque module. Le firewall de l'entreprise interdit tout téléchargement.

je cherche comment adapter la taille des colonnes dans un tableau.
j'aurai besoin que :
la colonne 1 fasse 2
la colonne 2 fasse 10
la colonne 3 fasse 5
la colonne 4 fasse 5
mais les 4 colonnes font systématiquement la même taille/largeur

voici un squelette de script

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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();
toute aide est la bienvenue.

cordialement
x-l'ours