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

2022-08-03 13:00:34 +03:00
parent 70a731d402
commit d7eef2b5f8
3 changed files with 6 additions and 6 deletions
--- 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]