svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Добавлено рекурсивное чтение каталога при открытии. Диалог поиска теперь работает раздельно при разделении окна.

Browse Source 
Диалог навигации по функци так-же работает раздельно
This commit is contained in:
svkalinin
2022-09-21 14:38:31 +03:00
parent 91ef282558
commit 4a76bd5e22
6 changed files with 53 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/files.tcl
View File

@@ -228,12 +228,16 @@ namespace eval FileOper {
# Sort lists and insert into tree
if {[info exists lstDir] && [llength $lstDir] > 0} {
foreach f [lsort $lstDir] {
puts "Tree insert item: [Tree::InsertItem $tree $parent [file join $directory $f] "directory" $f]"
set i [Tree::InsertItem $tree $parent [file join $directory $f] "directory" $f]
# puts "Tree insert item: $i $f]"
ReadFolder [file join $directory $f] $i
unset i
}
}
if {[info exists lstFiles] && [llength $lstFiles] > 0} {
foreach f [lsort $lstFiles] {
puts "Tree insert item: [Tree::InsertItem $tree $parent [file join $directory $f] "file" $f]"
Tree::InsertItem $tree $parent [file join $directory $f] "file" $f
# puts "Tree insert item: "
}
}
# Чтение структуры файлов в каталоге