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

Добавлено обновления списка файлов в дереве

Browse Source
This commit is contained in:
svkalinin
2022-11-18 13:03:48 +03:00
parent 9ecc9d7301
commit 39683d7439
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/files.tcl
View File

@@ -289,6 +289,9 @@ namespace eval FileOper {
} }
set parent [Tree::InsertItem $tree $parent $directory "directory" [file tail $directory]] set parent [Tree::InsertItem $tree $parent $directory "directory" [file tail $directory]]
$tree selection set $parent $tree selection set $parent
foreach i [$tree children $parent] {
$tree delete $i
}
# if {[ $tree item $parent -open] eq "false"} { # if {[ $tree item $parent -open] eq "false"} {
# $tree item $parent -open true # $tree item $parent -open true
# } else { # } else {

3
lib/git.tcl
View File

@@ -72,6 +72,7 @@ namespace eval Git {
puts $cmd puts $cmd
puts $pipe puts $pipe
if [regexp -nocase -- {^error:} $pipe match] { if [regexp -nocase -- {^error:} $pipe match] {
ShowMessage "Command: '$cmd' error" $pipe
return return
} }
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
@@ -80,6 +81,8 @@ namespace eval Git {
# cd $d # cd $d
.frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]" .frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
FileOper::ReadFolder $activeProject
if [info exists res] { if [info exists res] {
return $res return $res
} }