[Perl/Tk] Actualisation d'une fenêtre par une commande

Bonjour,

J'ai un souci avec l'actualisation d'une fenêtre, suite à l'exécution d'une commande via un bouton placé dans une autre fenêtre.

Voici un exemple simple :

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

# !/usr/bin/perl -w   use warnings; use strict;   use Tk;   # ===============================================================================================   my @tab = (0);   # ===============================================================================================   my $main = MainWindow->new(); my $frame1 = $main->Frame()->pack(); my $frameG = $frame1->Frame()->pack(-side=>'left'); my $button = $frameG->Button(-text=>'Fonction', -command=>\&fonct)->pack(); my $frameD = $frame1->Frame()->pack(-side=>'right'); foreach (@tab) { my $checkbutton = $frameD->Checkbutton(-text=>"$_")->pack(); }   MainLoop;   # ===============================================================================================   sub fonct { @tab = (1, 2); $frameD->update; }

---

Ce que j'aimerais faire, c'est rafraîchir ma fenêtre $frameD en prenant en compte la nouvelle composition du tableau @tab.
Dans l'exemple précédent, il me semblait qu'en appelant la fonction, on exécutait également la méthode update, mais ce n'est pas le cas.

Quelle est la chose qui m'échappe dans ce que j'ai écrit ?
Merci d'avance pour vos éclaircissements...

Je ne dois pas avoir tout à fait compris le fonctionnement de la méthode update :roll:

Bref, arrêtez-moi si je dis une bêtise, mais on doit passer par la méthode destroy pour réaliser un vrai rafraîchissement de la fenêtre, c'est bien ça ?

Dans ce cas, j'ai effectivement une fenêtre qui s'actualise avec la modification suivante :

Code:

---

1 2 3 4 5 6

sub fonct { @tab = (2, 3, 4); $frameD->destroy; $frameD = $frame1->Frame()->pack(-side=>'right'); foreach (@tab) { my $checkbutton = $frameD->Checkbutton(-text=>"$_")->pack(); } }

---

Y-a-t-il plus simple, ou mes recherches ont été fructueuses ?

La méthode update est suffisante pour rafraichir un widget. Destroy ne fait que la détruire, donc ça n'a pas de sens.
Maintenant, tout dépend de ce que fait concrètement votre programme. Vous avez surement un problème d'algorithme. Il faudrait nous dire ce que fait concrètement votre code et surtout ce que vous souhaitiez faire, puis s'il vous plait, apprenez à indenter votre code avant de la présenter car cela ne donne pas envie de le lire.

Je n'ai jamais appris à indenter le code, et j'ai du coup appris à le rendre visible "à ma façon"... :oops:

Voici le code présenté autrement, je vais essayer de prendre le temps d'apprendre à indenter correctement :

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 46 47 48 49 50 51 52

# !/usr/bin/perl -w   use warnings; use strict;   use Tk;   # ===============================================================================================   my @tab = (0, 1);   # ===============================================================================================   # Création de la fenêtre principale (Niv 1) my $main = MainWindow->new(); # Création d'une fenêtre à gauche (Niv 2) my $frameG = $main->Frame()->pack(-side=>'left'); # Création d'un bouton (Niv 3) dans la fenêtre de gauche appelant la fonction "fonct" my $button = $frameG->Button( -text=>'Fonction', -command=>\&fonct )->pack(); # Création d'une fenêtre à droite (Niv 2) my $frameD = $main->Frame()->pack(-side=>'right'); # Création d'une série de checkbuttons (Niv 3) dans la fenêtre de droite foreach (@tab) { my $checkbutton = $frameD->Checkbutton( -text=>"$_" )->pack(); }   MainLoop;   # ===============================================================================================   # fonct modifie le contenu du tableau @tab et met à jour la fenêtre frameD sub fonct { @tab = (2, 3, 4); # Destruction de la fenêtre de droite (Niv 2) $frameD->destroy; # Re-création de la fenêtre de droite (Niv 2) $frameD = $main->Frame()->pack(-side=>'right'); # Re-création d'une série de checkbuttons (Niv 3) dans la fenêtre de droite foreach (@tab) { my $checkbutton = $frameD->Checkbutton( -text=>"$_" )->pack(); } }

---

Voici ce que j'aimerais que ce bout de code fasse :
Je crée un certain nombre de checkbuttons (dans la frame de droite) en fonction de ma variable @tab.
La commande associée au bouton créé dans la frame de gauche modifie la variable @tab, et j'aimerais qu'elle modifie le nombre de checkbuttons de l'autre frame grâce à la méthode update.

Quand je définis ma fonction comme suit :

Code:

---

1 2 3 4 5 6 7

# fonct modifie le contenu du tableau @tab et met à jour la fenêtre frameD sub fonct { @tab = (2, 3, 4); # Mise à jour de la fenêtre de droite (Niv 2) $frameD->update; }

---

ma frame de droite ne change pas.

Avec la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

# fonct modifie le contenu du tableau @tab et met à jour la fenêtre frameD sub fonct { @tab = (2, 3, 4); # Destruction de la fenêtre de droite (Niv 2) $frameD->destroy; # Re-création de la fenêtre de droite (Niv 2) $frameD = $main->Frame()->pack(-side=>'right'); # Re-création d'une série de checkbuttons (Niv 3) dans la fenêtre de droite foreach (@tab) { my $checkbutton = $frameD->Checkbutton( -text=>"$_" )->pack(); } }

---

ma frame de droite est bien à jour.

Est-ce que je n'ai pas de rafraîchissement de ma fenêtre de droite parce que les checkbuttons ne peuvent pas être modifiés, mais doivent être supprimés puis recréés ?
Est-il plus correct de supprimer les checkbuttons et d'en créer de nouveau suivant la nouvelle définition de @tab ?

(Edit : Merci Lolo78)

Indente tes commentaires au moins autant que le code qui les entoure, sinon ils attirent l’œil plus que le code.

;)

Votre souci est purement algorithmique.
en utilisant cette fonction

Code:

---

1 2 3 4 5 6

sub fonct { @tab = (2, 3, 4); # Mise à jour de la fenêtre de droite (Niv 2) $frameD->update; }

---

C'est tout à fait normal que la fenêtre ne change pas. Ce n'est pas parce que une variable change, notamment @tab que les widgets vont changer. Tout doit se coder. update rafraichit la fenêtre, mais si rien n'a changé à l'intérieur, bah rien ne changera.

C'est donc à vous de coder ces changements, ce que vous avez fait en modifiant votre fonction en

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

# fonct modifie le contenu du tableau @tab et met à jour la fenêtre frameD sub fonct { @tab = (2, 3, 4); # Destruction de la fenêtre de droite (Niv 2) $frameD->destroy; # Re-création de la fenêtre de droite (Niv 2) $frameD = $main->Frame()->pack(-side=>'right'); # Re-création d'une série de checkbuttons (Niv 3) dans la fenêtre de droite foreach (@tab) { my $checkbutton = $frameD->Checkbutton( -text=>"$_" )->pack(); } }

---

Maintenant, niveau algorithme, il faut se poser la question de l'utilité de vos checkbutton. Qu'elle est leur rôle ? Car au lieu de supprimer et en recréer il y a peut-être une autre façon de faire ou même, il serait peut-être plus judicieux d'utiliser un autre widget.
Il faudrait en savoir plus sur ce que vous souhaitez faire, qu'elle est le but de votre interface graphique ? En fonction des réponses, je pourrai vous guider dans un meilleur choix de widget.

Le programme que je tente de réaliser est en fait assez personnel, je ne désire pas vraiment dévoiler ici mon code :oops:

Voilà pourquoi j'essaye de comprendre par un exemple simple.

Ce que j'aimerais faire avec ces checkbuttons, c'est de proposer à l'utilisateur d'en cocher un certain nombre (à son gré), et un bouton "Valider" devrait permettre d'enregistrer dans un fichier le contenu du texte associé au checkbutton.
N'ayant pas l'habitude de perl/tk, je suis parti sur l'idée des checkbuttons plutôt que de créer un bouton "Valider" pour chaque valeur de @tab, tableau à partir duquel je crée mes checkbuttons...

Bon, difficile de faire plus avec peu d'informations, néanmoins, je vais essayer de te faire un petit programme.
Je te recommande aussi la lecture de notre FAQ Perl/Tk.

Voici un exemple de programme :

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 46 47 48 49 50 51 52

# !/usr/bin/perl use warnings; use strict;   use Tk;   my $main = MainWindow->new();   my $frameG = $main->Frame(); my $frameD = $main->Frame();   my @MesCheckButton;   # Spinbox permettant le choix de valeurs my $Spinbox = $frameG->Spinbox( -from => 1, -to => 10, -width => 10, -validate => 'key' ); my $button = $frameG->Button( -text => 'Creer des CheckButton', -command => [ \&fonct, $frameD, $Spinbox ], );   $frameG->pack(qw/ -side left -padx 5 -pady 5/); $frameD->pack(qw/ -side right -padx 5 -pady 5/); $Spinbox->pack(qw/ -pady 5/); $button->pack(qw/ -pady 5/);   MainLoop;   sub fonct { my ( $cadreDroit, $SpinBoxChoix ) = @_;   # Supprimons les checkbutton affichés foreach (@MesCheckButton) { $_->destroy(); } @MesCheckButton = ();   # Création de nouveaux CheckButton my $nombre_Checkbutton = $SpinBoxChoix->get(); if ( $nombre_Checkbutton > 0 ) { for ( 1 .. $nombre_Checkbutton ) { my $Checkbutton = $cadreDroit->Checkbutton( -text => $_ )->pack();   # stockage des widgets push @MesCheckButton, $Checkbutton; } }   return; }

---

Merci Djibril, c'est bien par la suppression des checkbuttons qu'il fallait donc passer (et pas la structure qui les contient).
Il est vrai que ce n'est pas facile de voir ce que je veux faire sans plus de précisions, mais j'étais surtout bloqué par la méthode update que j'imaginais faire plus de choses qu'elle ne peut en réalité.

En tout cas, ton exemple me montre comment rendre mon code plus lisible, c'est certain.

Je vais aussi lire plus attentivement la FAQ Perl que je n'avais que jusque là survolée en cherchant rapidement si je pouvais trouver des solutions, et aussi les cours et tutoriels de formation pour apprendre Perl : http://perl.developpez.com/cours/

Merci encore de s'être penché sur la question !

La méthode update ne fait pas ce dont tu penses. Elle n'est pas là pour coder à ta place les widgets. Tout dépend de ton algorithme.

Bon courage pour la suite !