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 ou cela ne fonctionne pas, si quelqu'un veut bien m'expliquer.

Merci d'avance