PERL/Tk: probleme pour lancer deux fois la fonction destroy

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai crée une fenêtre contenant une liste, supprimée par un bouton de validation. Le problème est que ce bouton, ne faisant pas que détruire la fenêtre, fonctionne à la première validation mais jamais la deuxième fois.
J'ai tenté deux solutions:
- sur la première, la fonction destroy, est contenue dans la fonction "valider" lancée par le bouton validation. Cette première solution échoue quelle que soit le contenu de la fonction.
- sur la seconde, la fonction destroy est placée à la suite de l'appel à la fonction (-command => sub {&valider; $f_sec -> destroy();} ). Cette seconde solution échoue à cause des instructions "curselection" et "get" faisant appel à la variable $liste.

J'espère avoir été assez clair...Sinon peut être que mon script vous permettra de mieux comprendre ce que j'ai essayé de résumer.
Code:

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 39 40 41 42 43 44 #! /usr/bin/perl use strict; use Tk; my $window; $window = new MainWindow (); $window -> title("maintenance du reseau"); $window -> minsize(qw(500 830)); $window -> Button ( -text => "afficher", -command => \&fenetre ) -> pack (); MainLoop (); sub fenetre { my $f_sec; my $liste; $f_sec = $window -> Toplevel (); $liste = $f_sec -> Listbox ( -selectmode => 'single' ) -> pack (); $liste -> insert (0, "toto", "titi"); $f_sec -> Button ( -text => "valider", -command => \&valider #---> 1ere solution # -command => sub {&valider; $f_sec -> destroy();} #---> 2eme solution ) -> pack (); sub valider { my @selectListe; my $selectListe; @selectListe = $liste -> curselection (); #---> $selectListe = $liste -> get($selectListe[0]); #---> Les deux lignes qui posent problème pour la 2eme solution print $selectListe."\n"; $f_sec -> destroy (); #---> ligne suprimée pour la 2eme solution } }

Bon, je vais vous donner quelques conseils pour travailler sous TK.
1- Lorsque vous avez plusieurs procédures à utiliser, je vous conseil de passer en arguments les objets des widgets sur lesquels vous souhaitez travailler dans vos procédures. Çà évite énormément d'ennuis.
2- Éviter de créer des procédures dans des procédures (exemple : votre procédure valider).
3- utiliser toujours use strict et use warnings dans vos scripts.

Après correction, voici à quoi ressemble votre script et il fonctionne à merveille.

Code:

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
39
40
41
42
43
44
45
#! /usr/bin/perl
use warnings;
use strict;
use Tk;
 
my $window;
 
$window = new MainWindow (); 
$window -> title("maintenance du reseau");
$window -> minsize(qw(500 830));
 
$window -> Button (
   -text => "afficher",
   -command => [\&fenetre ,$window],
) -> pack ();
 
MainLoop ();
 
sub fenetre {
   my $window = shift;
   my $f_sec;
   my $liste;
   $f_sec = $window -> Toplevel ();
   $liste = $f_sec -> Listbox (
      -selectmode => 'single'
   ) -> pack ();
   $liste -> insert (0, "toto", "titi");
 
   $f_sec -> Button (
      -text => "valider",
      -command => [\&valider, $f_sec, $liste],                                  #---> 1ere solution
#      -command => sub {&valider; $f_sec -> destroy();}      #---> 2eme solution
   ) -> pack ();
 
}
 
   sub valider {
      my ( $f_sec, $liste ) = @_;
      my @selectListe;
      my $selectListe;
      @selectListe = $liste -> curselection ();               #--->
      $selectListe = $liste -> get($selectListe[0]);          #---> Les deux lignes qui posent problème pour la 2eme solution
      print $selectListe."\n";
      $f_sec -> destroy ();                                   #---> ligne suprimée pour la 2eme solution
   }

04/03/2009, 15h53
seben

Merci beaucoup pour la vitesse et l'efficacité.

J'essayerais d'appliquer le plus possible les conseils.

A une prochaine