Discussion :

[spheris]

Bonsoir,
je crée une appli dans un répertoire situé dans mon /home/monordi/
je crée dans ce même répertoire un dossier ICONS dans lequel je stocke toutes les images utilisées par cette appli.
Comment définir un chemin vers mon appli?
car /home/monordi/icons (par exemple) ne fonctionnera pas chez d'autres utilisateurs de mon appli.

Puis de façon générale :

A) comment définir le chemin de l'application?
B) Comment définir le chemin du Home/User?

Pour le B, je pense avoir trouvé il s'agit de ceci : ~/icons . Le symbole vague semble remplacer le /home/user
et pour le A, auriez-vous une idée?

[fred1599]

Bonjour,

Pour le A :

Je ne connais pas tcl, mais cette page devrait t'intéresser.

Le code pourrait être : set appPath [file dirname [info script]].

Cette commande retourne le chemin du répertoire contenant le script TCL actuellement exécuté et est assigné à la variable appPath.

À tester !

[spheris]

Merci pour cette réponse qui est exactement la réponse à ma question.
Malheureusement ce n'était pas ce que je voulais demander.

En effet, le résultat de la commande que tu m'a donné me renvoi un point.
Et cela est normal car c'est le chemin relatif entre le wish déclenché dans le répertoire du script.

Ma question était tout autre.
Je voulais savoir où dans l'arborescence se situait le script ainsi lancé.
Une réponse du style :

Code :

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

/home/monordi/monrep/monscript/

Ayant le chemin relatif, je peux donc dès à présent donner le chemin des images et fichiers liés au projet par leurs chemin relatif genre

Code :

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

1
2
./icon
./help

[fred1599]

Bonjour,

À tester,

Code :

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

set appPath [file normalize [file join [pwd] [file dirname [info script]]]]

Cette commande va combiner le chemin relatif obtenu à partir de [info script] avec le répertoire de travail courant renvoyé par [pwd], et ensuite normaliser ce chemin pour obtenir le chemin absolu.

Je te laisse lire la documentation tcl pour comprendre l'utilisation et la syntaxe.

[spheris]

Merci, cela fonctionne parfaitement.
;-)