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

2022-09-19 15:00:05 +03:00
parent 02bc6e852d
commit 8796277014
4 changed files with 10 additions and 2 deletions
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -107,7 +107,11 @@ namespace eval Tree {
                # $tree item $id -open false
            }
            file {
-                FileOper::Edit $values
+                set v [FileOper::Edit $values]
+                if {$v eq false} {
+                    $tree delete $id
+                }
+                unset v
            }
            I[0-9]*? {
                destroy .findVariables