Исправлен поиск имени функции

2022-11-24 10:46:30 +03:00 · 2022-11-24 10:46:30 +03:00 · 976aa30657
commit 976aa30657
parent 8b8fd6fd5f
1 changed files with 2 additions and 1 deletions
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@ -930,11 +930,12 @@ namespace eval Editor {
    }
    
    proc FindFunction {txt findString} {
+        puts "txt: $txt, $findString"
        set pos "0.0"
        $txt see $pos
        set line [lindex [split $pos "."] 0]
        set x [lindex [split $pos "."] 1]
-        set pattern "$findString\\W"
+        set pattern "$findString\(\\W\|\$\)"
        set pos [$txt search -nocase -regexp $pattern $line.$x end]
        $txt mark set insert $pos
        $txt see $pos