Исправлен поиск процедуры в тексте по клику в дереве. Исправлено отображение позиции курсора в строке статуса

2022-08-03 12:21:28 +03:00
parent 7215c537a8
commit 70a731d402
8 changed files with 97 additions and 42 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -98,7 +98,7 @@ proc ImageBase64Encode {} {
 proc FindImage {ext} {
    foreach img [image names] {
        if [regexp -nocase -all -- "^($ext)(_)" $img match v1 v2] {
-            puts "\nFindinig images: $img \n"
+            # puts "\nFindinig images: $img \n"
            return $img
        }
    }