Bonjour,
je cherche à écrire un (ou plusieurs) lien hypertext depuis une cellule d'un tableau TableMatrix.
Mon code est:
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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.