Discussion :

[Landraille]

Bonjour,

J'aimerais "updater" une liste. J'utilise la commande update mais cela ne change rien.
De plus, je n'arrive pas a trouver d'explication précise sur le update de perl/Tk.

Voici mon test:

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
#!/usr/bin/perl
use Tk;
use strict;
use warnings;
 
 
my $mw = MainWindow->new;
my $list = $mw->Listbox()->pack;
my $enfant=0;
my $adulte=0;
 
$list->insert('end',"nombre enfant = $enfant","nombre adulte = $adulte");
 
print "\nCombien d'enfants?\t";
chop ($enfant=<STDIN>);
 
print "\nCombien d'adultes?\t";
chop ($adulte=<STDIN>);
 
$list->update;
 
 
MainLoop;

Que je fasse

Code :

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

$list->update;

ou

Code :

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

$mw->update;

cela ne fonctionne pas, si quelqu'un veut bien m'expliquer.

Merci d'avance

[djibril]

update fonctionne mais ne fait pas ce que tu penses. la fenêtre est bien rafraichie, mais le contenu du listbox ne peut pas changer comme tu le penses. ça ne fonctionne pas comme les label qui ont une option -textvariable.
Si tu veux modifier le contenu du Listbox, il faut supprimer la ligne en question et la recréer en jouant avec les indices.

[Landraille]

Merci pour la réponse Djibril. Cependant, je n'arrive pas à voir comment on peut jouer sur les indices de la liste pour la updater. Pourrais tu etre un peu plus explicite stp?

merci

[djibril]

Sans rentrer sur un cours de Perl/Tk, tout est question de choix conceptuel. Dans ton cas (je me base sur ton exemple), le choix d'utiliser une listbox n'est pas adapté. L'utilisation d''étiquette label) suffirait amplement. Et ainsi, tu pourrais utiliser l'option -textvariable. Dès que j'ai un peu de temps, je te fais un exemple.

[djibril]

Voici un exemple de programme conçu rapidement.

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
#!/usr/bin/perl
use Tk;
use strict;
use warnings;
 
my $mw = MainWindow->new;
 
my ( $nombre_enfant, $nombre_adulte ) = ( 0, 0 );
 
my $label_enfant = $mw->Label( -text         => "Nombre d'enfants : ", );
my $enfant       = $mw->Label( -textvariable => \$nombre_enfant, );
my $label_adulte = $mw->Label( -text         => "Nombre d'adultes : ", );
my $adulte       = $mw->Label( -textvariable => \$nombre_adulte, );
 
my $question_enfant = $mw->Button(
  -text    => "Question enfant",
  -command => sub {
    print "Combien d'enfants ? : ";
    chomp( $nombre_enfant = <STDIN> );
    print "\n";
  }
);
 
my $question_adulte = $mw->Button(
  -text    => "Question adulte",
  -command => sub {
    print "Combien d'adultes ? : ";
    chomp( $nombre_adulte = <STDIN> );
    print "\n";
  }
);
 
$label_enfant->grid($enfant);
$label_adulte->grid($adulte);
$question_enfant->grid($question_adulte);
 
MainLoop;

Pour l'exemple avec les listbox, si j'ai le temps, je verrais ça ?

[Landraille]

J'avais mis cet exemple car il était simple à comprendre (même si le Label est plus adapté) car dans mon vrai script, c'est la liste qui conviendrait le mieux.
Comme je ne m'en sortais pas, j'avais commencé à le modifier avec Label pour avoir textvaraible.

J'ai des questions du coup avec textvariable:
- Il ne peux etre pris en compte qu'une seule variable?
par exemple si je veux sur la meme ligne "$enfant $adulte", je dois passer par 2 label textvariable ? (j'ai essayé de ne passer que par un mais sans succès).
- textvariable ne peux prendre que des variables?
exemple si je veux ecrire la ligne "enfant=$enfant ", il faut obligatoirement que je crée 1 label avec -text => 'enfant=' et 1 label avec -textvariable => \$enfant ? (J'ai essayé de créer un label ayant les options text et textvariable en meme temps mais cela ne fonctionne pas)