fenêtre secondaire qui ferme tout
salut à tous, j'ai réalisé une petite interface avec perl/tk qui contient une fenêtre principale qui contient un bouton sur lequel lorsqu'on appuis ouvre une fenêtre secondaire.
jusque là c'est bon:king:, j'ai mis un bouton dans la fenêtre secondaire qui normalement ferme celle ci mais le problème c'est qu'il ferme toutes les fenêtres, principale et secondaire.
voici le code du bouton présent dans la fenêtre secondaire:
Code:
1
2
3
4
5
6
7
8
9
10
| $r->Button(
-text => 'repertoire parent(cd)',
-font => '{Garamond} 10',
-command => sub {exit}
)->pack(
-pady => '5',
-padx => '5',
-ipady => '5',
-ipadx => '5'
); |
