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: 1. BaseALT SimplyLinux - Bwidget ScrolledWindow dont work with options:
-background -background
In Debian - it's all right. In Debian - it's all right

3
README
View File

@ -19,9 +19,8 @@ See INSTALL
REQUIREMENTS REQUIREMENTS
For UNIX-like OS For UNIX-like OS
Tcl/Tk http://www.scriptics.com Tcl/Tk >= 8.6 http://tcl.tk
BWidget http://sourceforge.net/projects/tcllib BWidget http://sourceforge.net/projects/tcllib
CTags
tcl-img - for image viewer tcl-img - for image viewer
For WINDOWS 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 ## GETTING PROJECT NAMES FROM DIR AND PUTS INTO
proc GetProj {tree} { proc GetProj {tree} {
global projDir workDir fontNormal imgDir module global projDir workDir fontNormal imgDir module
set rList "" set rList ""
#set tree .frmBody.frmCat.noteBook.fprojects.frmTree.tree
if {[catch {cd $workDir}] != 0} { if {[catch {cd $workDir}] != 0} {
return "" return ""
} }
@ -109,12 +111,12 @@ proc GetProj {tree} {
} }
if {$keyWord == "ProjectDirName"} { if {$keyWord == "ProjectDirName"} {
set projList($prjName) [file dirname $string] 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 \ $tree insert end root $prjName -text "$projName" -font $fontNormal \
-data "prj_$prjName" -open 0\ -data "prj_$prjName" -open 0\
-image [Bitmap::get [file join $imgDir folder.gif]] -image [Bitmap::get [file join $imgDir folder.gif]]
puts "GetFiles $tree $prjName $string" #puts "GetFiles $tree $prjName $string"
GetFiles $tree $project $string GetFiles $tree $prjName $string
#$tree itemconfigure $prjName -open 1 #$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 # option add *Entry.HighlightThickness 1 userDefault