Added GoTo line into toolbar

Fixed fileinfo update when tree one click Fixed bug with opened files have extention is a upper case
2018-02-24 19:42:49 +03:00
parent 5deb2a17a9
commit 823591ae92
7 changed files with 53 additions and 18 deletions
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -219,10 +219,10 @@ proc TreeOneClick {tree node} {
            return
        }
    } elseif {[file isfile $item] == 1 } {
+        LabelUpdate .frmStatus.frmHelp.lblHelp [FileAttr $item]
        if {[$noteBook index $node] != -1} {
+            PageRaise $tree $node
            if {[file exists $item] == 1} {
-                LabelUpdate .frmStatus.frmHelp.lblHelp [FileAttr $item]
-                PageRaise $tree $node
            }
        }
    } elseif {[string range $item 0 2] == "prc"} {
@@ -341,3 +341,4 @@ proc FileNotePageRaise {nb s} {



+