Добавлен поиск переменной в тексте после открытия файла где она указана
This commit is contained in:
parent
c755e79517
commit
02bc6e852d
|
@ -165,7 +165,7 @@ proc SearchVariable {txt} {
|
|||
proc GetVariableFilePath {txt} {
|
||||
set str [$txt get {insert linestart} {insert lineend}]
|
||||
if [regexp -nocase -all -- {^([0-9A-Za-z\-_:]*?) :: (.*?) :: (.*?)$} $str match vName vValue vPath] {
|
||||
return $vPath
|
||||
return [list $vName $vPath]
|
||||
}
|
||||
}
|
||||
proc FindVariablesDialog {txt args} {
|
||||
|
@ -246,10 +246,14 @@ proc FindVariablesDialog {txt args} {
|
|||
# puts "- $id - $values - $key"
|
||||
# regsub -all {PROCNAME} $findString $values str
|
||||
# Editor::FindFunction "$str"
|
||||
set path [GetVariableFilePath $win.lBox]
|
||||
set _v [GetVariableFilePath $win.lBox]
|
||||
set varName [lindex $_v 0]
|
||||
set path [lindex $_v 1]
|
||||
unset _v
|
||||
if {$path ne ""} {
|
||||
destroy .findVariables
|
||||
FileOper::Edit $path
|
||||
Editor::FindFunction "$varName"
|
||||
}
|
||||
# $txt tag remove sel 1.0 end
|
||||
# focus $Editor::txt.t
|
||||
|
@ -257,10 +261,14 @@ proc FindVariablesDialog {txt args} {
|
|||
}
|
||||
# bind $win.lBox <Double-ButtonPress-1> {Tree::DoublePressItem $win.lBox}
|
||||
bind $win.lBox <ButtonRelease-1> {
|
||||
set path [GetVariableFilePath $win.lBox]
|
||||
set _v [GetVariableFilePath $win.lBox]
|
||||
set varName [lindex $_v 0]
|
||||
set path [lindex $_v 1]
|
||||
unset _v
|
||||
if {$path ne ""} {
|
||||
destroy .findVariables
|
||||
FileOper::Edit $path
|
||||
Editor::FindFunction "$varName"
|
||||
}
|
||||
break
|
||||
}
|
||||
|
|
|
@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
|
|||
######################################################
|
||||
# Version: 2.0.0
|
||||
# Release: alpha
|
||||
# Build: 18092022095233
|
||||
# Build: 18092022102313
|
||||
######################################################
|
||||
|
||||
# определим текущую версию, релиз и т.д.
|
||||
|
|
Loading…
Reference in New Issue
Block a user