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

This commit is contained in:
svkalinin 2022-11-18 11:43:57 +03:00
parent d70459970d
commit ae1a1aaba7

View File

@ -921,30 +921,22 @@ namespace eval Editor {
} }
proc FindFunction {txt findString} { proc FindFunction {txt findString} {
global nbEditor
puts $findString
set pos "0.0" set pos "0.0"
# set txt [$nbEditor select].frmText.t
$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 pos [$txt search -nocase $findString $line.$x end] set pattern "$findString\\W"
set pos [$txt search -nocase -regexp $findString $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
puts $pos
# highlight the found word
set line [lindex [split $pos "."] 0] set line [lindex [split $pos "."] 0]
# set x [lindex [split $pos "."] 1]
# set x [expr {$x + [string length $findString]}]
$txt tag remove sel 1.0 end $txt tag remove sel 1.0 end
$txt tag add sel $pos $line.end $txt tag add sel $pos $line.end
# #$text tag configure sel -background $editor(selectbg) -foreground $editor(fg)
$txt tag raise sel $txt tag raise sel
focus -force $txt.t focus -force $txt.t
# Position
return 1 return 1
} }
# "Alexander Dederer (aka Korwin) # "Alexander Dederer (aka Korwin)
## Search close bracket in editor widget ## Search close bracket in editor widget
proc _searchCloseBracket { widget o_bracket c_bracket start_pos end_pos } { proc _searchCloseBracket { widget o_bracket c_bracket start_pos end_pos } {