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

Добавлен поиск переменной в тексте после открытия файла где она указана

Browse Source
This commit is contained in:
Sergey Kalinin
2022-09-18 10:46:59 +03:00
parent c755e79517
commit 02bc6e852d
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/procedure.tcl
View File

@@ -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
}