Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.

2026-01-27 16:40:24 +03:00
parent 2dd7b7239e
commit d13a4adba5
1 changed files with 3 additions and 0 deletions
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -369,6 +369,9 @@ namespace eval Editor {
        if {$txt eq ""} {
            DebugPuts "Editor::SelectionGet: [focus]"
            set txt [focus]
+            if {![string match -nocase "*text*" $txt]} {
+                return ""
+            }
        }        
        set selBegin [lindex [$txt tag ranges sel] 0]
        set selEnd [lindex [$txt tag ranges sel] 1]