Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Include side context menu if a file is only on one side. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8597927f5355c1303b339a01566462fa |
| User & Date: | peter 2008-04-08 16:52:49.000 |
Context
|
2008-04-08
| ||
| 16:54 | Removed dirdiff that was already done. check-in: bbd712ff91 user: peter tags: trunk | |
| 16:52 | Include side context menu if a file is only on one side. check-in: 8597927f53 user: peter tags: trunk | |
| 16:42 | Support -context with -review for CVS. check-in: 20e5aa713f user: peter tags: trunk | |
Changes
Changes to src/dirdiff.tcl.
| ︙ | ︙ | |||
468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 |
set node [$tree identify row $x $y]
set col [$tree identify column $x $y]
set colname [$tree column $col -id]
set lf [$tree set $node leftfull]
set rf [$tree set $node rightfull]
set type [$tree set $node type]
set m $win.popup
destroy $m
menu $m
if {$col eq "#0"} {
$m add command -label "Prune equal" -command [mymethod PruneEqual]
$m add command -label "Expand all" -command [mymethod OpenAll]
$m add command -label "Collaps all" -command [mymethod OpenAll 0]
}
if {$type eq "file" && $lf ne "" && $rf ne ""} {
# Files, both exist
$m add command -label "Compare Files" -command [list \
newDiff $lf $rf]
}
| > | | | 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 |
set node [$tree identify row $x $y]
set col [$tree identify column $x $y]
set colname [$tree column $col -id]
set lf [$tree set $node leftfull]
set rf [$tree set $node rightfull]
set type [$tree set $node type]
set oneside [expr {($lf ne "") ^ ($rf ne "")}]
set m $win.popup
destroy $m
menu $m
if {$col eq "#0"} {
$m add command -label "Prune equal" -command [mymethod PruneEqual]
$m add command -label "Expand all" -command [mymethod OpenAll]
$m add command -label "Collaps all" -command [mymethod OpenAll 0]
}
if {$type eq "file" && $lf ne "" && $rf ne ""} {
# Files, both exist
$m add command -label "Compare Files" -command [list \
newDiff $lf $rf]
}
if {([string match left* $colname] || $oneside) && $lf ne ""} {
$m add command -label "Copy File" \
-command [mymethod CopyFile $node left]
$m add command -label "Edit File" \
-command [list EditFile $lf]
$m add command -label "Mark File" \
-command [list set [myvar leftMark] $lf]
if {$rightMark != ""} {
$m add command -label "Compare with $rightMark" \
-command [list newDiff $lf $rightMark]
}
} elseif {([string match right* $colname] || $oneside) && $rf ne ""} {
$m add command -label "Copy File" \
-command [mymethod CopyFile $node right]
$m add command -label "Edit File" \
-command [list EditFile $rf]
$m add command -label "Mark File" \
-command [list set [myvar rightMark] $rf]
if {$leftMark != ""} {
|
| ︙ | ︙ |