Добавлена проверка на отсутствие файла и удаление из дерева
This commit is contained in:
parent
02bc6e852d
commit
8796277014
|
@ -258,6 +258,10 @@ namespace eval FileOper {
|
|||
|
||||
proc Edit {fileFullPath} {
|
||||
global nbEditor tree
|
||||
if {[file exists $fileFullPath] == 0} {
|
||||
return false
|
||||
}
|
||||
|
||||
set filePath [file dirname $fileFullPath]
|
||||
set fileName [file tail $fileFullPath]
|
||||
regsub -all {\.|/|\\|\s} $fileFullPath "_" itemName
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
|
|||
######################################################
|
||||
# Version: 2.0.0
|
||||
# Release: alpha
|
||||
# Build: 18092022102313
|
||||
# Build: 19092022115815
|
||||
######################################################
|
||||
|
||||
# определим текущую версию, релиз и т.д.
|
||||
|
|
Loading…
Reference in New Issue
Block a user