[Tk] Quelques petites questions

Bonjour,

Je programme un editeur de texte en Perl Tk et il y a deux trois choses que j'aimerais faire, mais je ne vois pas comment.

1. Changer l'icône par défaut par une icône de mon choix.
2. J'ai créé une fonction "Quitter" qui contrôle si le texte a subi des modifications et si c'est le cas, demande à la personne si elle veut les sauvegarder, sinon la fonction quitte. Mais je ne sais pas comment faire pour que lorsqu'on appuie sur la croix rouge (sous windows, en haut a droite de la fenetre) cela execute ma fonction...

Merci d'avance :)

Edit

J'ai trouvé le moyen d'exécuter une fonction lorsqu'on quitte la fenêtre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

use Tk; $fenetre = new MainWindow(); $fenetre->title("Fenêtre"); $fenetre->bind ("<Destroy>" , \&Fonction ) ; MainLoop();   sub Fonction { # ... }

---

Mais j'ai encore un problème en fait mon but est d'affiché une boite de dialogue "Voulez-vous enregistrer les modifications ?" mais comme le widget est fermé la boite de dialogue s'affiche pas :(.

Salut,

Pour utiliser la fonction de la croix en haut à droite de la fenetre :

Code:

---

1 2	$fenetre->protocol('WM_DELETE_WINDOW',\&commande);

---

Pour faire un message comme tu dis, il est préférable d'utiliser un Dialogbox (ou boite de dialogue).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

sub Quitter { my ( $boite_dialogue ) ;   $boite_dialogue = $fenetre -> Dialog ( -title => 'Quitter' , -text => 'Veux-tu vraiment nous quitter ?' , -bitmap => 'question' , -default_button => 'Oui' , -buttons => [ 'Oui' , 'Non' ] ) ; $reponse = $boite_dialogue -> Show ( ) ; print "Réponse : $reponse\n" ; if ( $reponse eq 'Oui' ) { exit ( 0 ) ; } }

---

Pour l'icone je pense que tu parle de celle qui est située en haut à gauche de la fenêtre.. Pour cela je n'ai pas d'idée... je vais essayer de chercher.

Merci beaucoup pour ta réponse. Sinon j'ai trouvé le moyen de changer l'icône :

Code:

---

1 2 3

$icone = $Fenetre -> Photo(-file => "icone.gif"); $Fenetre -> Icon(-image => $icone);

---

++

Saitan, http://informatips.net