Исправлен поиск процедуры в тексте по клику в дереве

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"

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)
-

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]