From a3ea035df5a42b0b0eb597794a25259f4f5fd017 Mon Sep 17 00:00:00 2001
From: Sergey <banzaj28@yandex.ru>
Date: Sat, 24 Feb 2018 18:16:01 +0300
Subject: [PATCH] Critical bug fixed with create project

---
 lib/projects.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/projects.tcl b/lib/projects.tcl
index df333ba..5474567 100644
--- a/lib/projects.tcl
+++ b/lib/projects.tcl
@@ -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} {
 
 
 
+