Bug fix with varhelper

2025-10-22 09:34:13 +03:00
parent a78ab384ad
commit 8a1145a2d9
1 changed files with 2 additions and 2 deletions
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -580,7 +580,7 @@ namespace eval Editor {
        if { [set height [llength $findedVars]] > 10 } { set height 10 }
        $win.lBox configure -height $height

-        focus $win.lBox
+        # focus $win.lBox
        
        bind $win <Escape> {
            destroy $Editor::win
@@ -592,7 +592,7 @@ namespace eval Editor {
            focus -force $Editor::txt.t
            break
        }
-        bind $win <Control-Return> {
+        bind VarHelperBind <Control-Return> {
            $Editor::txt delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
            $Editor::txt insert "insert" [.varhelper.lBox get [.varhelper.lBox curselection]]
            # eval [bind VarHelperBind <Escape>]