From 8a1145a2d9214f60471ddc1d48043250568d5385 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=9A=D0=B0=D0=BB=D0=B8=D0=BD=D0=B8=D0=BD=20=D0=A1=D0=B5?=
 =?UTF-8?q?=D1=80=D0=B3=D0=B5=D0=B9=20=D0=92=D0=B0=D0=BB=D0=B5=D1=80=D1=8C?=
 =?UTF-8?q?=D0=B5=D0=B2=D0=B8=D1=87?= <svkalinin@samsonpost.ru>
Date: Wed, 22 Oct 2025 09:34:13 +0300
Subject: [PATCH] Bug fix with varhelper

---
 lib/editor.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/editor.tcl b/lib/editor.tcl
index 3eaa3c0..5f8ded2 100644
--- 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>]