OVH Cloud OVH Cloud

Tk::Tree

6 réponses
Avatar
GERBIER Eric
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

bonjour

je cherche a representer une structure arborescente (une partie filtree d'une
arborescence de fichier en fait) a l'aide du module Tk::Tree, mais je bute sur
la colorisation des elements.

est-ce que quelqu'un pourrait me montrer un bout de code qui le fait ?
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFADrFTNzh6q8tvpCoRAhNhAJ9k4QrPnTE9wYa0sd0pXuaQNxfmfgCfWUF/
ou/yrP4n6fOyI3CY/Yz4NNw=
=LOqc
-----END PGP SIGNATURE-----

6 réponses

Avatar
Paul GABORIT
À (at) Wed, 21 Jan 2004 18:05:23 +0100,
GERBIER Eric écrivait (wrote):
je cherche a representer une structure arborescente (une partie filtree
d'une arborescence de fichier en fait) a l'aide du module Tk::Tree, mais je
bute sur la colorisation des elements.

est-ce que quelqu'un pourrait me montrer un bout de code qui le fait ?


Pour « coloriser » du texte, il faut utiliser un style :

# ... creation de $tree ...
$tree = ...

# creation d'un style
$tree->ItemStyle('text',
-stylename => 'rouge',
-foreground => 'red',
-background => 'blue',
);

# creation d'un item avec style
$tree->add($chemin,
-itemtype => 'text',
-text => 'un item avec du style',
-style => 'rouge',
);

Une fois le style créé, on peut l'appliquer à tous les éléments que l'on veut.

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>

Avatar
GERBIER Eric
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Paul GABORIT wrote:

# creation d'un style
$tree->ItemStyle('text',
-stylename => 'rouge',
-foreground => 'red',
-background => 'blue',
);

Une fois le style créé, on peut l'appliquer à tous les éléments que l'on veut.


je le fais avec la methode "entryconfigure"

comme ca, ca marche, effectivement !
(j'avais commence a bidouiller depuis le programme d'exemple de la HList, mais
sans tout comprendre : il me manquait le "stylename" )

mais ou peut-on trouver de la doc ? (sur ma machine linux, il n'y a ni man, ni
fichier pod)

merci pour cette reponse, concise et efficace
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFAD4mRNzh6q8tvpCoRAnOGAJwKpLPRDJpsOZUF2cWWJU9KLoQuBgCdFx0p
0oxb3gPdGVUYVu+22PVv9AQ =aLG4
-----END PGP SIGNATURE-----

Avatar
Paul GABORIT
À (at) Thu, 22 Jan 2004 09:28:02 +0100,
GERBIER Eric écrivait (wrote):
mais ou peut-on trouver de la doc ? (sur ma machine linux, il n'y a ni man,
ni fichier pod)


Personnellement, j'ai trouvé cela (et bien d'autres choses encore) en lisant :

perldoc Tk::Tree
perldoc Tk::HList
perldoc Tk::DItem

Les fichiers POD sont dans l'arborescence perl. Par exemple, pour ma version
5.6.1 :

.../site_perl/5.6.1/<architecture>/Tk/DItem.pod

Si les fichiers POD correspondants ne sont pas installés, c'est le signe d'une
mauvaise installation (on n'installe pas du soft sans la doc). En attendant de
les retrouver, vous pouvez les consulter sur Internet (via CPAN par exemple).

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>

Avatar
GERBIER Eric
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Paul GABORIT wrote:
À (at) Thu, 22 Jan 2004 09:28:02 +0100,
GERBIER Eric écrivait (wrote):


Si les fichiers POD correspondants ne sont pas installés, c'est le signe d'une
mauvaise installation (on n'installe pas du soft sans la doc). En attendant de
les retrouver, vous pouvez les consulter sur Internet (via CPAN par exemple).


apres verification, il n'y a pas de pod installes sur ma mandrake !!

j'ai fini par trouver mon bonheur (des programmes d'exemple) sur
http://ftp.linux.hr/pub/pub/CPAN/modules/by-authors/id/CTDEAN/Tk-Tree-3.00401.tar.gz

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFAENSBNzh6q8tvpCoRAt6WAJ9GV+/3sE66ltdInu6JnS1mHIMH1wCfU/8A
OuGMJI36rc7B1k2lGBR7/lM =s67C
-----END PGP SIGNATURE-----

Avatar
Paul GABORIT
Paul GABORIT wrote:
Si les fichiers POD correspondants ne sont pas installés, c'est le signe
d'une mauvaise installation (on n'installe pas du soft sans la doc). En
attendant de les retrouver, vous pouvez les consulter sur Internet (via
CPAN par exemple).



À (at) Fri, 23 Jan 2004 09:00:01 +0100,
GERBIER Eric écrivait (wrote):
apres verification, il n'y a pas de pod installes sur ma mandrake !!


Il doit bien y avoir un package correspondant à ces documents. Ou alors, il
faut poser la question aux mainteneurs des packages...

j'ai fini par trouver mon bonheur (des programmes d'exemple) sur
http://ftp.linux.hr/pub/pub/CPAN/modules/by-authors/id/CTDEAN/Tk-Tree-3.00401.tar.gz


Ça dépanne en attendant.

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>


Avatar
GERBIER Eric
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Paul GABORIT wrote:
Paul GABORIT wrote:

Si les fichiers POD correspondants ne sont pas installés, c'est le signe
d'une mauvaise installation (on n'installe pas du soft sans la doc). En
attendant de les retrouver, vous pouvez les consulter sur Internet (via
CPAN par exemple).



Il doit bien y avoir un package correspondant à ces documents. Ou alors, il
faut poser la question aux mainteneurs des packages...


quelques recherches plus tard : les .pod sont dans un package séparé : perl-Tk-doc
mais qui fait carrement double emploi avec les pages de man contenues
dans le package perl-Tk : ca n'apporte rien de plus

le mainteneur de ces packages n'a pas juge bon d'y mettre les exemples du
fichier tar trouve sur CPAN !!

- --
Eric Gerbier
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFAEToDNzh6q8tvpCoRAl7JAJ49QgMqMVf3EDjFkVf8rfWfxLqMZwCfdUED
dMpY3rmcqbmN11uK8aJtl/0 =UGQe
-----END PGP SIGNATURE-----