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:

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.

Bonsoir,

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

Code:

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
}

Merci pour ces précieuses informations.
Cela résout mon problème.