Добавил иконку для изображений

2022-12-08 13:32:18 +03:00
parent 8b294582f3
commit fa0bda3c25
2 changed files with 127 additions and 0 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -229,12 +229,26 @@ proc ImageBase64Encode {} {
    }
 }
 proc FindImage {ext} {
+    set imageType {
+        PNG
+        JPG
+        JPEG
+        WEBP
+        GIF
+        TIFF
+        JP2
+        ICO
+        XPM
+    }
    foreach img [image names] {
        if [regexp -nocase -all -- "^($ext)(_16x12)" $img match v1 v2] {
            # puts "\nFindinig images: $img \n"
            return $img
        }
    }
+    if {[lsearch -exact -nocase $imageType $ext] != -1} {
+        return image_16x12
+    }
 }

 namespace eval Help {