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-26 16:25:19 +03:00
parent 2f7b37ac66
commit cb77304a78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/tree.tcl
View File

@ -37,9 +37,9 @@ namespace eval Tree {
directory { directory {
regsub -all {\.|/|\\|\s} $item "_" subNode regsub -all {\.|/|\\|\s} $item "_" subNode
# puts $subNode # puts $subNode
if {[string match {*debian*} [string tolower $item]]} { if {[string match {*debian*} [string tolower [file tail $item]]]} {
set image [::FindImage debian] set image [::FindImage debian]
} elseif {[string match {*redhat*} [string tolower $item]]} { } elseif {[string match {*redhat*} [string tolower [file tail $item]]]} {
set image [::FindImage redhat] set image [::FindImage redhat]
} else { } else {
set image pixel set image pixel