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-01 16:54:34 +03:00
parent d4f11b11de
commit a67916273c
6 changed files with 184 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/tree.tcl
View File

@@ -27,6 +27,10 @@ namespace eval Tree {
# puts ">>>>>>>>>>> [string tolower $text]; [string match {*docker*} [string tolower $text]]"
if {[string match {*docker*} [string tolower $text]]} {
set findImg [::FindImage docker]
} elseif {[string match {*gitlab*} [string tolower $text]]} {
set findImg [::FindImage gitlab]
} elseif {[string match {*bitbucket*} [string tolower $text]]} {
set findImg [::FindImage bitbucket]
}
if {$fileExt ne "" || $findImg ne ""} {
set image $findImg
@@ -41,6 +45,8 @@ namespace eval Tree {
set image [::FindImage debian]
} elseif {[string match {*redhat*} [string tolower [file tail $item]]]} {
set image [::FindImage redhat]
} elseif {[string match {*gitlab*} [string tolower [file tail $item]]]} {
set image [::FindImage gitlab]
} else {
set image pixel
}