Discussion :

[clmin]

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.

[clmin]

J'ai remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-command => sub{system($lien[$i]);}

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-command => sub{system("start ".$lien[$i]);}

et ça marche... plus où moins.
Cela ne semble prendre qu'une partie du lien, et rien après le symbole &.
Par exemple, si le lien est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://springerlink.metapress.com/openurl.asp?genre=journal&issn=0340-6717

cela ouvre une fenêtre internet avec comme url

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 http://springerlink.metapress.com/openurl.asp?genre=journal

Connaîtriez-vous un moyen de remédier à cela?

[JeanMi3000]

j'ai pas trop d'idée sur ce problème, mais je tenterais de le corriger en rajoutant des guillemets supplémentaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-command => sub{system("start \"".$lien[$i]."\"");}