Bug fix

2022-09-23 12:33:22 +03:00
parent 32013d87a7
commit 123d38b6ae
4 changed files with 25 additions and 18 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -296,9 +296,8 @@ namespace eval FileOper {
        set str ""
        set nbEditorItem [$nbEditor select]
        if {$nbEditorItem ne ""} {
-            # set txt $nbEditorItem.frmText.t
-            set txt [focus]
-        
+            set txt $nbEditorItem.frmText.t
+            # set txt [focus]
            set selIndex [$txt tag ranges sel]
            if {$selIndex ne ""} {
                set selBegin [lindex [$txt tag ranges sel] 0]