382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
|
global dirdiff Pref
set row [expr {int([$w index @$x,$y]) - 1}]
set lf [lindex $dirdiff(leftFiles) $row]
set rf [lindex $dirdiff(rightFiles) $row]
set i [lindex $dirdiff(infoFiles) $row]
set m .dirdiff.m
destroy $m
menu $m
if {($i & 12) == 12} { # Both are dirs
$m add command -label "Compare Directories" -command "
[list set dirdiff(leftDir) $lf]
[list set dirdiff(rightDir) $rf]
[list if \$Pref(autocompare) "after idle doDirCompare"]
|
|
|
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
|
global dirdiff Pref
set row [expr {int([$w index @$x,$y]) - 1}]
set lf [lindex $dirdiff(leftFiles) $row]
set rf [lindex $dirdiff(rightFiles) $row]
set i [lindex $dirdiff(infoFiles) $row]
set m .dirdiff.popup
destroy $m
menu $m
if {($i & 12) == 12} { # Both are dirs
$m add command -label "Compare Directories" -command "
[list set dirdiff(leftDir) $lf]
[list set dirdiff(rightDir) $rf]
[list if \$Pref(autocompare) "after idle doDirCompare"]
|