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:
|
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
3
README
|
@ -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
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
|
## 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} {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -162,3 +162,4 @@ option add *Dialog.msg.background $editor(bg)
|
||||||
# option add *Entry.HighlightThickness 1 userDefault
|
# option add *Entry.HighlightThickness 1 userDefault
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user