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

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

Browse Source
This commit is contained in:
svkalinin
2022-11-24 10:46:30 +03:00
parent 8b8fd6fd5f
commit 976aa30657
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/editor.tcl
View File

@@ -930,11 +930,12 @@ namespace eval Editor {
} }
proc FindFunction {txt findString} { proc FindFunction {txt findString} {
puts "txt: $txt, $findString"
set pos "0.0" set pos "0.0"
$txt see $pos $txt see $pos
set line [lindex [split $pos "."] 0] set line [lindex [split $pos "."] 0]
set x [lindex [split $pos "."] 1] set x [lindex [split $pos "."] 1]
set pattern "$findString\\W" set pattern "$findString\(\\W\|\$\)"
set pos [$txt search -nocase -regexp $pattern $line.$x end] set pos [$txt search -nocase -regexp $pattern $line.$x end]
$txt mark set insert $pos $txt mark set insert $pos
$txt see $pos $txt see $pos