Fixed parsing procedure with names like ::proc::name or proc_na::me(aa) and parameters {{} {} {}}

This commit is contained in:
Sergey Kalinin
2018-02-15 17:04:11 +03:00
parent 794ea04f2e
commit 1748933767
5 changed files with 14 additions and 9 deletions

View File

@@ -273,12 +273,9 @@ proc TopLevelHelp {} {
entry $frmSrchEnt.entSearch
set lstSearch [listbox $frmSrchList.lstSearch -font $fontNormal\
-yscrollcommand\
{.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhList.scrListY set}\
-xscrollcommand\
{.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhScrollX.scrListX set}\
-selectmode single -selectbackground #55c4d1\
-selectborderwidth 0]
-yscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhList.scrListY set}\
-xscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhScrollX.scrListX set}\
-selectmode single -selectbackground #55c4d1 -selectborderwidth 0]
scrollbar $frmSrchList.scrListY -command\
{$frmSrchList.lstSearch yview} -borderwidth {1} -width {10} -takefocus 0
@@ -324,3 +321,4 @@ proc TopLevelHelp {} {
#GetContent $docDir/tcl.toc.html