Bonjour à tous,
j'ai réalisé une application en Perl/Tk qui fonctionne correctement. Cependant un problème persiste. Voici le détail du code en question:

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
my $channelMenu = $menuBar->Menubutton (
		-text => 'Channel',
		-tearoff => 0,
		-menuitems => [
			[Button => 'Plot', -command => sub{$this->channelPlot()}],
			[Menubutton => 'Pattern',
				-tearoff => 0,
				-menuitems => [
# cela fonctionne mais est statique
# 					map ['radiobutton', $_], ('headPan', 'headTilt'),
# la liste n'est pas mise à jour
# 					map ['radiobutton', $_], keys(%{$this->getModel()->getDemultiplexers()}),
				]
			],
		]
	);
Au lancement de mon interface, je ne connais pas la liste
Code : Sélectionner tout - Visualiser dans une fenêtre à part
keys(%{$this->getModel()->getDemultiplexers()})
(une liste de noms), le menu est donc vide. Après, l'utilisateur charge un fichier est rempli cette liste, mais le menu reste vide.
Donc, la question est simplement, comment faire en sorte que ce menu se mette à jour quand la liste est modifiée?

Merci d'avance,

JD