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

Добавлена поддержка python. Обновлена библиотека иконок.

Browse Source
This commit is contained in:
svkalinin
2022-08-26 12:29:19 +03:00
parent dacccf2fb9
commit 8a541c0339
6 changed files with 332 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/tree.tcl
View File

@@ -21,9 +21,14 @@ namespace eval Tree {
regsub -all {\.|/|\\|\s} $item "_" subNode
# puts "Inserted tree node: $subNode"
set fileExt [string trimleft [file extension $text] "."]
#set fileName [string trimleft [file extension $text] "."]
set findImg [::FindImage $fileExt]
# puts "Extention $fileExt, find image: $findImg"
if {$fileExt ne "" && $findImg ne ""} {
# puts ">>>>>>>>>>> [string tolower $text]; [string match {*docker*} [string tolower $text]]"
if {[string match {*docker*} [string tolower $text]]} {
set findImg [::FindImage docker]
}
if {$fileExt ne "" || $findImg ne ""} {
set image $findImg
} else {
set image imgFile
@@ -32,7 +37,13 @@ namespace eval Tree {
directory {
regsub -all {\.|/|\\|\s} $item "_" subNode
# puts $subNode
set image pixel
if {[string match {*debian*} [string tolower $item]]} {
set image [::FindImage debian]
} elseif {[string match {*redhat*} [string tolower $item]]} {
set image [::FindImage redhat]
} else {
set image pixel
}
}
func {
regsub -all {:} $item "_" subNode