Added opening last active project when project run

This commit is contained in:
Sergey Kalinin
2018-02-15 17:56:10 +03:00
parent 1748933767
commit 987b4c2745
7 changed files with 18 additions and 38 deletions

View File

@@ -505,9 +505,10 @@ proc TreeOneClick {tree node} {
## TREE DOUBLE CLICK PROCEDURE ##
proc TreeDoubleClick {tree node} {
global fontNormal projDir workDir activeProject fileList noteBook findString imgDir fontBold
puts "$tree $node"
$tree selection set $node
set item [$tree itemcget $node -data]
puts $item
#puts $item
if {[$tree itemcget $node -open] == 1} {
$tree itemconfigure $node -open 0
} elseif {[$tree itemcget $node -open] == 0} {
@@ -565,4 +566,3 @@ proc GetTreeForNode {node} {
}