649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
|
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
|
-
+
|
set fromp [$tree rowattrib $parent ${from}full]
set top [$tree rowattrib $parent ${to}full]
}
}
if {[file exists $dst]} {
if {[tk_messageBox -icon question -title "Overwrite file?" -message \
"Copy\n$src\noverwriting\n$dst ?" -type yesno] eq "yes"} {
"Copy\n$src\n\noverwriting\n$dst ?" -type yesno] eq "yes"} {
file copy -force $src $dst
# FIXA: update file info in tree too
$self SetNodeStatus $node equal
}
} else {
set msg "Copy\n$src\nto\n$dst ?"
set dstdir [file dirname $dst]
|
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
|
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
|
+
-
+
|
}
}
}
# React on double-click
method DoubleClick {W x y} {
foreach {W x y} [tablelist::convEventFields $W $x $y] break
set index [$tree index @$x,$y]
set node [$tree index @$x,$y]
set node [$tree getfullkeys $index]
set lf [$tree rowattrib $node leftfull]
set rf [$tree rowattrib $node rightfull]
set type [$tree rowattrib $node type]
# On a file that exists on both sides, start a file diff
if {$type eq "file" && $lf ne "" && $rf ne ""} {
|
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
|
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
|
+
-
+
|
}
}
# Bring up a context menu on a file.
method ContextMenu {W x y X Y} {
foreach {W x y} [tablelist::convEventFields $W $x $y] break
set index [$tree index @$x,$y]
set node [$tree index @$x,$y]
set node [$tree getfullkeys $index]
set col [$tree columnindex @$x,$y]
set colname [$tree columncget $col -name]
set lf [$tree rowattrib $node leftfull]
set rf [$tree rowattrib $node rightfull]
set type [$tree rowattrib $node type]
set oneside [expr {($lf ne "") ^ ($rf ne "")}]
|