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 : 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
# !/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...