Critical fix again
This commit is contained in:
parent
a3ea035df5
commit
5deb2a17a9
2
KNOWBUG
2
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
|
3
README
3
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
|
||||
|
|
7
errors
7
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)
|
12
lib/tree.tcl
12
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} {
|
|||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -162,3 +162,4 @@ option add *Dialog.msg.background $editor(bg)
|
|||
# option add *Entry.HighlightThickness 1 userDefault
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user