svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

- Fixed edit files into root node from file browser tree

Browse Source 
- Change "Delete project" dialog and procedure
This commit is contained in:
Sergey Kalinin
2018-02-18 15:01:56 +03:00
parent 75f9860f63
commit d3add6984d
14 changed files with 644 additions and 552 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/tree.tcl
View File

@@ -17,7 +17,7 @@ namespace eval FileTree {
proc FileTree::create {nb} {
global editor
global treeFiles
set frmTreeFiles [ScrolledWindow $nb.frmTreeFiles -bg $editor(bg)]
set frmTreeFiles [ScrolledWindow $nb.frmTreeFiles -bg $editor(bg) -background $editor(bg) ]
set treeFiles [
Tree $frmTreeFiles.treeFiles \
@@ -195,11 +195,14 @@ proc FileTree::GetAllDirs {treeFiles} {
if {[catch {cd $rootDir}] != 0} {
return ""
}
set rootNode [$treeFiles insert end root $rootDir -text "$rootDir" -font $fontNormal \
-data "dir_root" -open 1\
-image [Bitmap::get [file join $imgDir folder.gif]]]
$treeFiles insert end root $rootDir -text "$rootDir" -font $fontNormal \
-data "dir_root" -open 0\
-image [Bitmap::get [file join $imgDir folder.gif]]
GetFiles [file join $rootDir] root $treeFiles
# $treeFiles insert end root $rootDir -text "$rootDir" -font $fontNormal \
# -data "dir_root" -open 0\
# -image [Bitmap::get [file join $imgDir folder.gif]]
GetFiles [file join $rootDir] $rootNode $treeFiles
#set dir $string
$treeFiles configure -redraw 1
@@ -580,3 +583,6 @@ proc GetTreeForNode {node} {
}