Укоротил имя корневого каталога в дереве

2022-08-30 14:55:15 +03:00 · 2022-08-30 14:55:15 +03:00 · 1142324008
commit 1142324008
parent b6dc24ca29
1 changed files with 1 additions and 1 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@ -149,7 +149,7 @@ namespace eval FileOper {
        if {[catch {cd $directory}] != 0} {
            return ""
        }
-        set parent [Tree::InsertItem $tree {} $directory "directory" $directory]
+        set parent [Tree::InsertItem $tree {} $directory "directory" [file tail $directory]]
        # if {[ $tree  item $parent -open] eq "false"} {
            # $tree  item $parent -open true
        # } else {