Discussion :

[kain_tn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!)

[Hide]

Tu peux utiliser la fonction configure().

elle permet de modifier le widget affiché.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kain_tn]

merci pour ton aide!