IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Tcl/Tk Discussion :

Parcourir toute l'arborescence à l'aide d'un menu popup.


Sujet :

Tcl/Tk

  1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : avril 2020
    Messages : 10
    Points : 10
    Points
    10
    Par défaut Parcourir toute l'arborescence à l'aide d'un menu popup.
    Bonjour la racine de mon application étant un canvas,
    Comment pourrais-je créer toute l’arborescence du fichier /home/monordi/ à l'aide de menubutton et de sous menu en faisant un clic droit sur ce canvas .moncanvas ?

    J'ai fait cela mais je n'ai que le premier niveau.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
     proc Sousrep {mypath} {
    set dirnames [glob -tails -path $mypath *] ;#set home/user folder
    for {set i 0} {$i < [llength $dirnames]} {incr i} {
    	if { [file isfile $mypath[lindex $dirnames $i]]==0} {
    		puts $mypath[lindex $dirnames $i]
    			menu .desk.menu.home.$i -tearoff 0
    			.desk.menu.home add cascade -label [lindex $dirnames $i] -menu .desk.menu.home.$i -image ffolder -compound left
    		}
    }
    }
    il y a je pense une notion de récursivité, mais je ne sais pas comment la faire en tcl/tk.
    Merci pour votre aide.

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    mai 2007
    Messages
    288
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2007
    Messages : 288
    Points : 443
    Points
    443
    Par défaut
    Bonsoir,

    Voici une procédure qui renvoie la liste de tous les fichiers contenus dans un répertoire passé en paramètre :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    proc Direc {{dir .}} {
     set l {}
     foreach i [glob -nocomplain -directory $dir *] {
            if [file isdirectory $i] {
              lappend l {*}[Direc $i]
            } else {
              lappend l $i
            }
     }
     return $l
    }

  3. #3
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : avril 2020
    Messages : 10
    Points : 10
    Points
    10
    Par défaut
    Merci pour ces précieuses informations.
    Cela résout mon problème.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PowerShell] Parcourir toute une arborescence
    Par hacksi dans le forum Scripts/Batch
    Réponses: 2
    Dernier message: 13/01/2011, 12h26
  2. [TTreeView] Déployer toute une arborescence
    Par papy_tergnier dans le forum C++Builder
    Réponses: 7
    Dernier message: 16/11/2005, 14h54
  3. Parcourir tout un arbre
    Par wellynch dans le forum Algorithmes et structures de données
    Réponses: 5
    Dernier message: 15/03/2005, 13h23
  4. Parcourir tout les repertoires
    Par blue dans le forum C
    Réponses: 4
    Dernier message: 24/10/2003, 23h51
  5. [VB6] [MDI] Parcourir toutes les MDIForms chargées
    Par d.carail dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 04/10/2002, 09h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo