Added sort procedure for projects tree

2018-03-15 16:22:57 +03:00
parent 41c83d175a
commit 5fc93df431
9 changed files with 62 additions and 9 deletions
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -965,6 +965,7 @@ proc ReadFileStructure {mod line lineNumber tree node} {
        set closeBrace [expr [string first "\}" $line]-1]
        set var [string range $line $openBrace end]
        regsub -all ":" $procName "_" prcNode
+        set prcNode [string tolower $prcNode]
        if {$keyWord == "proc" || $keyWord == "sub" || $keyWord == "function"  || $keyWord == "let"} {
            set img "proc.gif"
        } elseif {$keyWord == "class"} {
@@ -1004,3 +1005,4 @@ GetOp



+