TCL/TK commande exec avec 3 boutons
Bonjour,
Je souhaiterais un coup de pouce, je suis en plein apprentissage du tcl/tk sur nux.
JE conçois une application front end de unzip.
J'ai une fenêtre avec 3 boutons, et deux entry.
Le premier bouton sert à ouvrir un chemin source du zip et l'afficher dans la première textbox.
Le deuxième bouton sert à ouvrir le répertoire destination et l'afficher dans la seconde textbox.
Enfin le bouton Unzip va lancer un executable externe 'unzip' qui va extraire les fichiers.
Mon problème est je pense simple, voici le code edité dans Gedit :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| #choose source directory
proc ssource {label} {
global types
set mysource [tk_getOpenFile -filetypes $types -parent .]
.esource delete 0 end
.esource insert 0 $mysource
}
#choose destination directory
proc sdest {label} {
global types
set mydest [t_getDirectory -initialdir /home]
.edest delete 0 end
.edest insert 0 $mydest
}
#Execute external unzip program
proc rexpand {} { exec $mysource $mydest
} |
et j'ai le message d'erreur :
Erreur can't read mysource: no such variable.
Je pense que cette variable est interne à la procédure ssource qui récupère le nom du zip par la fonction tk__openfile. Mais je ne sais pas comment la récupérer pour l'utiliser . Pourriez-vous me donner une piste?
Merci pour votre aide.
;)
