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

Изменены имена переенных

Browse Source
This commit is contained in:
svkalinin 2022-08-12 15:23:20 +03:00
parent c1e7fa558e
commit d2c8cd40c6
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lib/files.tcl
View File

@ -13,7 +13,7 @@ namespace eval FileOper {
set ::types { set ::types {
{"All files" *} {"All files" *}
} }
proc OpenDialog {} { proc OpenDialog {} {
global env global env
@ -134,14 +134,14 @@ namespace eval FileOper {
} }
} }
proc ReadFolder {dir} { proc ReadFolder {directory} {
global tree global tree dir
puts "Read the folder $dir" puts "Read the folder $directory"
set rList "" set rList ""
if {[catch {cd $dir}] != 0} { if {[catch {cd $directory}] != 0} {
return "" return ""
} }
set parent [Tree::InsertItem $tree {} $dir "directory" $dir] set parent [Tree::InsertItem $tree {} $directory "directory" $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 {
@ -149,7 +149,7 @@ namespace eval FileOper {
# } # }
# Getting an files and directorues lists # Getting an files and directorues lists
foreach file [glob -nocomplain *] { foreach file [glob -nocomplain *] {
lappend rList [list [file join $dir $file]] lappend rList [list [file join $directory $file]]
if [file isdirectory $file] { if [file isdirectory $file] {
lappend lstDir $file lappend lstDir $file
} else { } else {
@ -159,14 +159,17 @@ namespace eval FileOper {
# Sort lists and insert into tree # Sort lists and insert into tree
if {[info exists lstDir] && [llength $lstDir] > 0} { if {[info exists lstDir] && [llength $lstDir] > 0} {
foreach f [lsort $lstDir] { foreach f [lsort $lstDir] {
puts " Tree insert item: [Tree::InsertItem $tree $parent [file join $dir $f] "directory" $f]" puts " Tree insert item: [Tree::InsertItem $tree $parent [file join $directory $f] "directory" $f]"
} }
} }
if {[info exists lstFiles] && [llength $lstFiles] > 0} { if {[info exists lstFiles] && [llength $lstFiles] > 0} {
foreach f [lsort $lstFiles] { foreach f [lsort $lstFiles] {
puts "Tree insert item: [Tree::InsertItem $tree $parent [file join $dir $f] "file" $f]" puts "Tree insert item: [Tree::InsertItem $tree $parent [file join $directory $f] "file" $f]"
} }
} }
# Чтение структуры файлов в каталоге
# пока криво работает
# Accept $dir(lib) $directory
} }
proc ReadFile {fileFullPath itemName} { proc ReadFile {fileFullPath itemName} {