From d7eef2b5f81967708ade32be33e29960221b4e72 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 3 Aug 2022 13:00:34 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=20=D0=BF=D0=BE=D0=B8=D1=81=D0=BA=20=D0=BF=D1=80?=
 =?UTF-8?q?=D0=BE=D1=86=D0=B5=D0=B4=D1=83=D1=80=D1=8B=20=D0=B2=20=D1=82?=
 =?UTF-8?q?=D0=B5=D0=BA=D1=81=D1=82=D0=B5=20=D0=BF=D0=BE=20=D0=BA=D0=BB?=
 =?UTF-8?q?=D0=B8=D0=BA=D1=83=20=D0=B2=20=D0=B4=D0=B5=D1=80=D0=B5=D0=B2?=
 =?UTF-8?q?=D0=B5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/editor.tcl | 6 +++---
 lib/gui.tcl    | 3 +--
 lib/tree.tcl   | 3 ++-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/editor.tcl b/lib/editor.tcl
index 329ce25..128073d 100644
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -348,9 +348,9 @@ namespace eval Editor {
         #bind . <Control-udiaeresis> PageTab
         bind $txt <Insert> {OverWrite}
         bind $txt <ButtonRelease-1> []
-        bind $txt <Button-3> {catch [PopupMenuEditor %X %Y]}
-        bind $txt <Button-4> "%W yview scroll -3 units"
-        bind $txt <Button-5> "%W yview scroll  3 units"
+        # bind $txt <Button-3> {catch [PopupMenuEditor %X %Y]}
+        # bind $txt <Button-4> "%W yview scroll -3 units"
+        # bind $txt <Button-5> "%W yview scroll  3 units"
         #bind $txt <Shift-Button-4> "%W xview scroll -2 units"
         #bind $txt <Shift-Button-5> "%W xview scroll  2 units"
         bind $txt <<Modified>> "SetModifiedFlag $w"
diff --git a/lib/gui.tcl b/lib/gui.tcl
index d72e064..374739e 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -119,7 +119,7 @@ ttk::scrollbar $frmTree.v -orient vertical -command [list $frmTree.tree yview]
 
 
 bind $tree <Double-ButtonPress-1> {Tree::DoublePressItem $tree}
-bind $tree  <ButtonRelease> {Tree::PressItem $tree}
+bind $tree  <ButtonRelease-1> {Tree::PressItem $tree}
 
 grid $tree -row 0 -column 0 -sticky nsew
 grid $frmTree.v -row 0 -column 1 -sticky nsew
@@ -167,4 +167,3 @@ if {$cfgVariables(toolBarShow) eq "true"} {
 ttk::style configure . \
     -foreground $::cfgVariables(guiFG) \
     -font $::cfgVariables(guiFont)
-
diff --git a/lib/tree.tcl b/lib/tree.tcl
index 510f8fc..83ff326 100644
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -94,8 +94,9 @@ namespace eval Tree {
             }
             func {
                 set parentItem [$tree parent $id]
+                puts $values
                 $nbEditor select $nbEditor.[string range $parentItem [expr [string last "::" $parentItem] + 2] end]
-                Editor::FindFunction "func $values"
+                Editor::FindFunction "func.*?$values"
             }
             procedure {
                 set parentItem [$tree parent $id]