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)

[djibril]

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 prend qu'une seul variable. Il note la référence de la variable.

- 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)

Tu peux n'utiliser qu'un label, mais dans ce cas, c'est à toi de modifier la variable référencée pour qu'il t'affiche le contenu que tu souhaites.

Exemple :

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

voilà et là tu as ce que tu veux.

Conseil : Lorsque tu fais fais une interface graphique, l'intérêt est d'utiliser l'interface pour interagir avec ton programme et non avec la console (<STDIN>) .

[Landraille]

merci, avec ton exemple, je vois comment mettre à jour une phrase contenant une variable sans pour autant la couper en plusieurs labels.

Par contre, je ne vois toujours pas comment updater une liste contenant une variable vu que listbox ne possède pas de -textvariable et que update ne fonctionne pas.

Conseil : Lorsque tu fais fais une interface graphique, l'intérêt est d'utiliser l'interface pour interagir avec ton programme et non avec la console (<STDIN>) .

comme je l'ai mis dans le message précédent, j'avais ecris cet exemple afin que l'on comprenne ma question (modification d'une variable contenue dans une liste). Dans mon vrai script, je ne passe plus par STDIN, sinon ça ne sert pas à grand chose d'utiliser Tk (et donc de me prendre autant la tête!)