2026-02-12 12:23:37 +03:00
13 changed files with 554 additions and 58 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]