Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Get better status update in dirs while scanning |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
92b91d7d3542b1fa7e1d7b88f59db5e2 |
| User & Date: | peter 2014-11-17 21:47:35.144 |
Context
|
2014-11-18
| ||
| 00:02 | Refactored vcsvfs to get common code separate check-in: 1235042aab user: peter tags: trunk | |
|
2014-11-17
| ||
| 21:47 | Get better status update in dirs while scanning check-in: 92b91d7d35 user: peter tags: trunk | |
| 21:43 | Upgraded to latest tablelist check-in: 72eee063bd user: peter tags: trunk | |
Changes
Changes to src/dirdiff.tcl.
| ︙ | ︙ | |||
319 320 321 322 323 324 325 326 327 328 329 330 331 332 |
$tree columnconfigure 3 -name command
$tree columnconfigure 4 -name rightsize -align right
$tree columnconfigure 5 -name rightdate
destroy [$tree separatorpath 1] [$tree separatorpath 4]
set color(unknown) grey
set color(empty) grey
set color(equal) {}
set color(new) green
set color(old) blue
set color(change) red
#-expandcommand expandCmd
| > | 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 |
$tree columnconfigure 3 -name command
$tree columnconfigure 4 -name rightsize -align right
$tree columnconfigure 5 -name rightdate
destroy [$tree separatorpath 1] [$tree separatorpath 4]
set color(unknown) grey
set color(unknown2) grey
set color(empty) grey
set color(equal) {}
set color(new) green
set color(old) blue
set color(change) red
#-expandcommand expandCmd
|
| ︙ | ︙ | |||
714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 |
set statusvar ""
set AfterId ""
}
}
method SetNodeStatus {node status} {
variable color
$tree rowattrib $node status $status
$tree rowconfigure $node -foreground $color($status) \
-selectforeground $color($status)
#puts "Set [$tree item $node -text] to $status"
# Loop through children to update parent
set parent [$tree parentkey $node]
if {$parent eq "" || $parent eq "root"} { return }
# If this is only present on one side, there is no need to update
set lf [$tree rowattrib $parent leftfull]
set rf [$tree rowattrib $parent rightfull]
if {$lf eq "" || $rf eq ""} { return }
set pstatus equal
foreach child [$tree childkeys $parent] {
set status [$tree rowattrib $child status]
switch $status {
| > > > > > > | | 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 |
set statusvar ""
set AfterId ""
}
}
method SetNodeStatus {node status} {
variable color
set old [$tree rowattrib $node status]
if {$old eq $status} return
$tree rowattrib $node status $status
$tree rowconfigure $node -foreground $color($status) \
-selectforeground $color($status)
#puts "Set [$tree item $node -text] to $status"
# Loop through children to update parent
set parent [$tree parentkey $node]
if {$parent eq "" || $parent eq "root"} { return }
# If this is only present on one side, there is no need to update
set lf [$tree rowattrib $parent leftfull]
set rf [$tree rowattrib $parent rightfull]
if {$lf eq "" || $rf eq ""} { return }
# If parent is being filled, do not update yet
if {[$tree rowattrib $parent status] eq "unknown2"} {
return
}
set pstatus equal
foreach child [$tree childkeys $parent] {
set status [$tree rowattrib $child status]
switch $status {
unknown - unknown2 {
set pstatus unknown
}
new - old - change {
set pstatus change
break
}
}
|
| ︙ | ︙ | |||
883 884 885 886 887 888 889 890 891 892 893 894 895 896 |
set files2 {}
} else {
set files2 [DirContents $dir2]
}
set len1 [llength $files1]
set len2 [llength $files2]
set p1 0
set p2 0
set status_change 0
set status_unknown 0
while 1 {
if {$p1 < $len1 && $p2 < $len2} {
| > > > | 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 |
set files2 {}
} else {
set files2 [DirContents $dir2]
}
set len1 [llength $files1]
set len2 [llength $files2]
# Unknown2 is used to mark a directory filling up
$self SetNodeStatus $node unknown2
set p1 0
set p2 0
set status_change 0
set status_unknown 0
while 1 {
if {$p1 < $len1 && $p2 < $len2} {
|
| ︙ | ︙ |