Critical bug fixed with create project

This commit is contained in:
Sergey 2018-02-24 18:16:01 +03:00
parent 98de397ae9
commit a3ea035df5

View File

@ -473,7 +473,8 @@ proc OpenProj {nbNode} {
proc AddNewProjectIntoTree {proj} {
global workDir tree imgDir fontNormal
global workDir imgDir fontNormal
set tree .frmBody.frmCat.noteBook.fprojects.frmTree.tree
lappend rList [list [file join $workDir $proj]]
set projFile [open [file join $workDir $proj] r]
set prjName [file rootname $proj]
@ -1006,3 +1007,4 @@ proc InsertTitle {newFile type} {