svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Bug fix with varhelper

Browse Source
This commit is contained in:
Калинин Сергей Валерьевич
2025-10-22 09:34:13 +03:00
parent a78ab384ad
commit 8a1145a2d9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/editor.tcl
View File

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