Critical bug fixed with create project
This commit is contained in:
parent
98de397ae9
commit
a3ea035df5
|
@ -473,7 +473,8 @@ proc OpenProj {nbNode} {
|
||||||
|
|
||||||
|
|
||||||
proc AddNewProjectIntoTree {proj} {
|
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]]
|
lappend rList [list [file join $workDir $proj]]
|
||||||
set projFile [open [file join $workDir $proj] r]
|
set projFile [open [file join $workDir $proj] r]
|
||||||
set prjName [file rootname $proj]
|
set prjName [file rootname $proj]
|
||||||
|
@ -1006,3 +1007,4 @@ proc InsertTitle {newFile type} {
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user