Lien internet dans un tableau
Bonjour,
je cherche à écrire un (ou plusieurs) lien hypertext depuis une cellule d'un tableau TableMatrix.
Mon code est:
Code:
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
| use warnings;
use strict;
use Tk;
use Tk::TableMatrix;
my $fenetre_principale = MainWindow->new;
my $arrayVar = {};
for my $r ( 0 .. 7 ) {
for my $c ( 0 .. 7 ) {
$arrayVar->{"$r,$c"} = 'test';
}
}
my $tableau = $fenetre_principale->Scrolled(
'TableMatrix',
-variable => $arrayVar,
-selectmode => 'extended',
);
$tableau->tagConfigure(
'commande_dans_cellule',
-bg=>'white'
);
$tableau->pack( -expand => 1, -fill => 'both' );
my @lien;
my %lien_rs;
foreach my $i (1..5){
$lien[$i]= "http://google.fr";
$lien_rs{$i} = $fenetre_principale->Button(
-text => "Mon lien",
-command => sub{system($lien[$i]);}
);
$tableau->windowConfigure( "$i,5", -window => $lien_rs{$i});
}
MainLoop; |
Cependant, lorsque je clique sur un des bouton, j'obtiens
Code:
1
2
| 'http:' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes. |
Quelqu'un saurait-il d'où viens le problème?
Alternativement, s'il y avais un mayen pour transformer le texte de la cellule sans passer par un bouton, ce serai bien. Mais moins important.
