Добавлено обновления списка файлов в дереве

2022-11-18 13:03:48 +03:00
parent 9ecc9d7301
commit 39683d7439
2 changed files with 6 additions and 0 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -289,6 +289,9 @@ namespace eval FileOper {
        }
        set parent [Tree::InsertItem $tree $parent $directory "directory" [file tail $directory]]
        $tree selection set $parent
+        foreach i [$tree children $parent] {
+            $tree delete $i
+        }
        # if {[ $tree  item $parent -open] eq "false"} {
            # $tree  item $parent -open true
        # } else {