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 :
et j'ai le message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 }
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.
Partager