OVH Cloud OVH Cloud

[Perl/Tk]position du curseur

2 réponses
Avatar
none
J'ai un champ de saisie(Entry) dont la valeur est le chemin vers un
fichier. Ce chemin est mis à jour par un explorateur de fichier sur le
disque dur.

La question est: comment mettre la position du curseur de cet Entry à la
fin, de sorte à voir le nom du fichier et pas le répertoire racine si
jamais le chemin est trop long?
p. ex. pour /home/xxx/repertoire/travail/maison/cvs/module1/papa/oiseau.txt

je vois:
/home/xxx/repertoire/tr
et je voudrais voir:
module1/papa/oiseau.txt

Merci d'avance.

2 réponses

Avatar
nicolas //
Le Fri, 11 Mar 2005 20:30:37 +0100
none <""xxx"@(none)"> a écrit:

J'ai un champ de saisie(Entry) dont la valeur est le chemin vers un
fichier. Ce chemin est mis à jour par un explorateur de fichier sur le
disque dur.

La question est: comment mettre la position du curseur de cet Entry à l a
fin, de sorte à voir le nom du fichier et pas le répertoire racine si
jamais le chemin est trop long?
p. ex. pour /home/xxx/repertoire/travail/maison/cvs/module1/papa/oiseau.t xt

je vois:
/home/xxx/repertoire/tr
et je voudrais voir:
module1/papa/oiseau.txt

Merci d'avance.


Je ne suis pas certain que ça réponde à la question, mais je pense (R TFM : perldoc Tk::Entry):

$Entry->icursor("e");
$Entry->xview("e");


--
nicolas //

Avatar
none
nicolas // wrote:
Le Fri, 11 Mar 2005 20:30:37 +0100
none <""xxx"@(none)"> a écrit:


J'ai un champ de saisie(Entry) dont la valeur est le chemin vers un
fichier. Ce chemin est mis à jour par un explorateur de fichier sur le
disque dur.

La question est: comment mettre la position du curseur de cet Entry à la
fin, de sorte à voir le nom du fichier et pas le répertoire racine si
jamais le chemin est trop long?
p. ex. pour /home/xxx/repertoire/travail/maison/cvs/module1/papa/oiseau.txt

je vois:
/home/xxx/repertoire/tr
et je voudrais voir:
module1/papa/oiseau.txt

Merci d'avance.



Je ne suis pas certain que ça réponde à la question, mais je pense (RTFM : perldoc Tk::Entry):

$Entry->icursor("e");
$Entry->xview("e");




C'est parfait, Merci.