From 5deb2a17a96f2717c334631d84ce04e34acb8eb9 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Sat, 24 Feb 2018 18:31:18 +0300
Subject: [PATCH] Critical fix again

---
 KNOWBUG      |  2 +-
 README       |  3 +--
 errors       |  7 -------
 lib/tree.tcl | 12 ++++++++----
 projman.tcl  |  1 +
 5 files changed, 11 insertions(+), 14 deletions(-)

diff --git a/KNOWBUG b/KNOWBUG
index a19c26f..e902424 100644
--- a/KNOWBUG
+++ b/KNOWBUG
@@ -7,4 +7,4 @@
 
 1. BaseALT SimplyLinux - Bwidget ScrolledWindow dont work with options:
 -background
-In Debian - it's all right.
+In Debian - it's all right
\ No newline at end of file
diff --git a/README b/README
index 21f4c5d..5dc18cd 100644
--- a/README
+++ b/README
@@ -19,9 +19,8 @@ See INSTALL
 REQUIREMENTS
 
 For UNIX-like OS
-Tcl/Tk http://www.scriptics.com
+Tcl/Tk >= 8.6 http://tcl.tk
 BWidget http://sourceforge.net/projects/tcllib
-CTags
 tcl-img - for image viewer
 
 For WINDOWS
diff --git a/errors b/errors
index 59d9add..e69de29 100644
--- a/errors
+++ b/errors
@@ -1,7 +0,0 @@
-Error in startup script: invalid command name "an""
-    while executing
-"an""
-    (file "/home/svk/.projman/projman.conf" line 76)
-    invoked from within
-"source [file join $workDir projman.conf]"
-    (file "/home/svk/projects/tcl/projman/projman.tcl" line 81)
diff --git a/lib/tree.tcl b/lib/tree.tcl
index 6ed0817..ed636ff 100644
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -91,7 +91,9 @@ proc GetFiles {tree parent dir} {
 ## GETTING PROJECT NAMES FROM DIR AND PUTS INTO 
 proc GetProj {tree} {
     global projDir workDir fontNormal imgDir module
-    set rList ""                     
+    set rList ""
+    #set tree .frmBody.frmCat.noteBook.fprojects.frmTree.tree 
+        
     if {[catch {cd $workDir}] != 0} {
         return ""
     }
@@ -109,12 +111,12 @@ proc GetProj {tree} {
             }
             if {$keyWord == "ProjectDirName"} {
                 set projList($prjName) [file dirname $string]
-                #puts "$projList($prjName) - $string"
+                #puts "$tree $projList($prjName) - $prjName - $string"
                 $tree insert end root $prjName -text "$projName" -font $fontNormal \
                 -data "prj_$prjName" -open 0\
                 -image [Bitmap::get [file join $imgDir folder.gif]]
-                puts "GetFiles $tree $prjName $string"
-                GetFiles $tree $project $string
+                #puts "GetFiles $tree $prjName $string"
+                GetFiles $tree $prjName $string
                 #$tree itemconfigure $prjName -open 1
                 
             }
@@ -337,3 +339,5 @@ proc FileNotePageRaise {nb s} {
 }
 
 
+
+
diff --git a/projman.tcl b/projman.tcl
index 6cbcaea..991f814 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -162,3 +162,4 @@ option add *Dialog.msg.background $editor(bg)
 #   option add *Entry.HighlightThickness 1 userDefault
 
 
+