Добавлены иконуи для ключей и сертификатов. Изменен поиск иконки (вощзвращает теерь с размером)

2022-12-05 10:56:30 +03:00
parent 417fb9db23
commit b91790f756
2 changed files with 70 additions and 1 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -230,7 +230,7 @@ proc ImageBase64Encode {} {
 }
 proc FindImage {ext} {
    foreach img [image names] {
-        if [regexp -nocase -all -- "^($ext)(_)" $img match v1 v2] {
+        if [regexp -nocase -all -- "^($ext)(_16x12)" $img match v1 v2] {
            # puts "\nFindinig images: $img \n"
            return $img
        }