Critical fix again

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

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

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)

lib/tree.tcl

@@ -92,6 +92,8 @@ proc GetFiles {tree parent dir} {
 proc GetProj {tree} {
     global projDir workDir fontNormal imgDir module
     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} {
 }
 
 
+
+

projman.tcl

@@ -162,3 +162,4 @@ option add *Dialog.msg.background $editor(bg)
 #   option add *Entry.HighlightThickness 1 userDefault
 
 
+