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 :
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 .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 { # ... }
Partager