Perl::Tk dynamique

Bonjour a tous!
Je cherche a rendre une fenetre fille dynamique en perl/Tk:

en fait, je fais afficher dans un 'Frame' de la fenetre une image grace a Tk::JPEG ainsi qu'un bouton; je voudrais qu'en pressant ce bouton, je puisse faire changer l'image (=afficher une autre image a la place).

Code:

---

1 2	my $IMAGE_DOC= $CONTENU -> Photo('-format'=>'jpeg', -file=>$CHEMIN); my $REF_IMAGE= $CONTENU -> Label(-image=>$IMAGE_DOC);

---

avec $CHEMIN, le chemin vers mon image.
J'ai nomme les images du repertoire a-0000xx.jpeg ou xx designe un numero pour plus de facilite. Mais tous mes essais sont infructeux.
J'aimerais eviter de devoir creer une autre fenetre fille si possible...

Merci a tous. (dsl pour les accents mais je suis sur un clavier allemand... snif!:cry:)

Tu peux utiliser la fonction configure().

elle permet de modifier le widget affiché.
exemple :

Code:

---

1 2 3 4 5

$label = $fenetre -> Label (-text => "Salut") ; $bouton = $fenetre -> Button ( -text => "Modification", -command => sub { $label -> configure ( -text => "Coucou") ; } ) ;

---

dés que le monsieur il appuira sur le bouton, "Salut" va se transformer en "Coucou" .

Donc les photo c'est le même principe :lol:

merci pour ton aide!