diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl index 8decdf26c9..1cc70f877f 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/demos/tree.tcl @@ -39,6 +39,7 @@ proc populateTree {tree node} { set path [$tree set $node fullpath] $tree delete [$tree children $node] foreach f [lsort -dictionary [glob -nocomplain -dir $path *]] { + set f [file normalize $f] set type [file type $f] set id [$tree insert $node end -text [file tail $f] \ -values [list $f $type]] |