Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added hourglass cursor during prune equal in directory diff. [766b7a4695] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e24e4b0b26ce7a45ea2025fc6fe64520 |
| User & Date: | peter 2013-09-28 05:20:50.891 |
Context
|
2013-09-28
| ||
| 05:33 | Handle more of u patch format check-in: d712bd927b user: peter tags: trunk | |
| 05:20 | Added hourglass cursor during prune equal in directory diff. [766b7a4695] check-in: e24e4b0b26 user: peter tags: trunk | |
|
2013-09-26
| ||
| 17:07 | Fixed error printing patch with only deleted or inserted files. [2d89cee14d] check-in: 5d26e3e66c user: peter tags: trunk | |
Changes
Changes to Changes.
1 2 3 4 5 6 7 | 2013-09-26 Fixed error printing patch with only deleted or inserted files. [2d89cee14d] 2013-08-22 Bumped revision to 2.6.4 2013-08-22 | > > > | 1 2 3 4 5 6 7 8 9 10 | 2013-09-28 Added hourglass cursor during prune equal in directory diff. [766b7a4695] 2013-09-26 Fixed error printing patch with only deleted or inserted files. [2d89cee14d] 2013-08-22 Bumped revision to 2.6.4 2013-08-22 |
| ︙ | ︙ |
Changes to src/dirdiff.tcl.
| ︙ | ︙ | |||
416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 |
$tree cellconfigure $row,0 -image $::img(clsd)
}
# Format a time stamp for display
proc FormatDate {date} {
clock format $date -format "%Y-%m-%d %H:%M:%S"
}
# Remove all equal nodes from tree
method PruneEqual {} {
set todo [$tree childkeys root]
while {[llength $todo] > 0} {
set todoNow $todo
set todo {}
foreach node $todoNow {
set status [$tree rowattrib $node status]
if {$status eq "equal"} {
$tree delete $node
} else {
lappend todo {*}[$tree childkeys $node]
}
}
}
}
# Open or close all directories in the tree view
method OpenAll {{state 1}} {
if {$state} {
$tree expandall
} else {
| > > > > > > > > > > > > > > > > > > | 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 |
$tree cellconfigure $row,0 -image $::img(clsd)
}
# Format a time stamp for display
proc FormatDate {date} {
clock format $date -format "%Y-%m-%d %H:%M:%S"
}
method busyCursor {} {
variable oldcursor
if {![info exists oldcursor]} {
set oldcursor(hull) [$hull cget -cursor]
set oldcursor(tree) [$tree cget -cursor]
}
$hull configure -cursor watch
$tree configure -cursor watch
}
method normalCursor {} {
variable oldcursor
$hull configure -cursor $oldcursor(hull)
$tree configure -cursor $oldcursor(tree)
}
# Remove all equal nodes from tree
method PruneEqual {} {
$self busyCursor
set todo [$tree childkeys root]
while {[llength $todo] > 0} {
set todoNow $todo
set todo {}
foreach node $todoNow {
set status [$tree rowattrib $node status]
if {$status eq "equal"} {
$tree delete $node
} else {
lappend todo {*}[$tree childkeys $node]
}
}
}
$self normalCursor
}
# Open or close all directories in the tree view
method OpenAll {{state 1}} {
if {$state} {
$tree expandall
} else {
|
| ︙ | ︙ |