Discussion :

[VinnieMc]

Bonjour, j'ai récupéré un script sur le site suivant http://lionel.romain.free.fr/tlist.html, qui propose un cours sur perl tk, mais lorsuqe je test le script qui est présenté :

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
use Tk ;
use Tk::TList;
 
@villes = qw ( Rouen Caen Cherbourg Bayeux Carentan Lisieux Falaise Argentan Saint-Lô Granville ) ;
 
sub ChoixVille
{
   print "Ville choisie : " , $villes[$lt_villes -> info ( selection )] , "\n" ;
}
 
# main
 
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( 'Villes' ) ;
 
$lt_villes = $fenetre -> TList ( 
                                 -orient => 'vertical' , 
                                 -selectmode => 'single' ,
                                 -command => \&ChoixVille 
                         );
 
foreach $ville ( @villes )
{
  $lt_villes -> insert ( 'end' , -itemtype => 'text' , -text => $ville ) ;
}
$lt_villes -> pack ( -expand => 1 , -fill => 'both' ) ;
 
MainLoop ( ) ;

j'obtiens l'erreur suivante :

Code :

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

Use of reference "ARRAY(0x1ab8d2c)" as array index at TKList.pl line 8.

je ne comprends pas le fait que cette instruction

Code :

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

$villes[$lt_villes -> info ( selection )]

ne fonctionne pas alors que

Code :

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

 print $lt_villes -> info ( selection )

me donne bien l'indice de l'element sur lequel je double clique (0,1 ou 2 etc.);

par conséquent :

Code :

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

$villes[$lt_villes -> info ( selection )]

devrait être égale à

Code :

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

$villes[0]

si je clique sur le premier element, 1 sur le second etc.

Merci

Je suis sous windows vista / activeperl 5.8.8

[Jedai]

Tout d'abord : ON NE POSTE PAS SUR CE FORUM, on poste dans les sous-forums, comme indiqué dans le premier message "Important" sur ce forum (le sujet est en majuscule et c'est le premier sujet sur le forum, est-ce si difficile d'y jeter un coup d'oeil ??), je te déplace dans le sous-forum Module, mais fais un effort la prochaine fois !!

Il est pas très propre ce code... Pas de pragma "strict", ni de "warnings", un bareword selection, très espacé, mais à mon avis pas vraiment heureusement (séparer ainsi l'objet de la méthode me semble nuisible à la lisibilité, enfin les goûts et les couleurs ).
Voici un code qui marche, et plus propre :

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
36
37
38
#!/usr/bin/perl
use strict; use warnings;
 
use Tk;
use Tk::TList;
 
my @villes = qw ( Rouen Caen Cherbourg Bayeux Carentan 
                  Lisieux Falaise Argentan Saint-Lô Granville ) ;
 
# main
 
my $mw = new MainWindow( ) ;
$mw->title( 'Villes' ) ;
 
my $lt_villes = $mw->TList( 
                                 -orient => 'vertical' , 
                                 -selectmode => 'single' ,
                                 -command => \&choix_ville 
                         );
 
foreach my $ville ( @villes )
{
    $lt_villes -> insert ( 'end' , -itemtype => 'text' , -text => $ville ) ;
}
$lt_villes -> pack ( -expand => 1 , -fill => 'both' ) ;
 
MainLoop ( ) ;
 
# useful subs
 
# callbacks
 
sub choix_ville
{
   print "Ville choisie : " , @villes[$lt_villes->info('selection')] , "\n" ;
}
 
__END__

Tu remarqueras le changement de sigil (@ au lieu de $) devant villes, en temps normal tu aurais raison de mettre $, mais ici cela entraîne que "$lt_villes->info('selection')" est exécuté en contexte scalaire où cette méthode renvoie une référence à un tableau. Le @ signifie qu'on demande une tranche du tableau @villes, donc on a un tableau d'indices entre les [], donc $lt_villes->info('selection') est exécuté en contexte de tableau, où il renvoie bien une liste (ici constituée d'un seul élément).

Tu as une autre solution :

Code :

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

1
2
3
4
sub choix_ville
{
   print "Ville choisie : " , $villes[$lt_villes->info('selection')->[0]] , "\n" ;
}

--
Jedaï

[VinnieMc]

Merci infiniment pour le script corrigé, et mille excuses pour ne pas avoir posté au bon endroit je ferai attention la prochaine fois.