Discussion :

[jd.b]

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

[Jedai]

Il faut que tu utilise la méthode configure() (ou dans ce cas, entryconfigure()) pour mettre à jour la liste des items dans le menu.

--
Jedaï