Discussion :

[ChTiRiBi]

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, 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 :

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

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'
                     );

[djibril]

Code :

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

 -command => sub {exit}

ça ferme le script en lui même

mets plutôt

Code :

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

$r->destroy;