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

This commit is contained in:
svkalinin 2022-08-30 14:55:15 +03:00
parent b6dc24ca29
commit 1142324008

View File

@ -149,7 +149,7 @@ namespace eval FileOper {
if {[catch {cd $directory}] != 0} { if {[catch {cd $directory}] != 0} {
return "" 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"} { # if {[ $tree item $parent -open] eq "false"} {
# $tree item $parent -open true # $tree item $parent -open true
# } else { # } else {