Critical fix again

This commit is contained in:
Sergey Kalinin 2018-02-24 18:31:18 +03:00
parent a3ea035df5
commit 5deb2a17a9
5 changed files with 11 additions and 14 deletions

View File

@ -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

3
README
View File

@ -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

7
errors
View File

@ -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)

View File

@ -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} {
}

View File

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