| ︙ | | | ︙ | |
572
573
574
575
576
577
578
579
580
581
582
583
584
585
|
# FIXA: update file info in tree too
#$self SetNodeStatus $node equal
}
}
# Copy a file from one directory to the other
method CopyFile {node from} {
if {$from eq "left"} {
set to right
} elseif {$from eq "right"} {
set to left
} else {
error "Bad from argument to CopyFile: $from"
}
|
>
|
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
|
# FIXA: update file info in tree too
#$self SetNodeStatus $node equal
}
}
# Copy a file from one directory to the other
method CopyFile {node from} {
##nagelfar vartype tree _obj,tablelist
if {$from eq "left"} {
set to right
} elseif {$from eq "right"} {
set to left
} else {
error "Bad from argument to CopyFile: $from"
}
|
| ︙ | | | ︙ | |
829
830
831
832
833
834
835
836
837
838
839
840
841
842
|
}} continue
trace add execution $cmd enter [mymethod Dlog]
puts "Traced $cmd"
}
}
method UpdateIdle {} {
$self Dlog UpdateIdle
set AfterId "X"
if {$PauseBgProcessing} {
$self Dlog Pause
set AfterId [after 200 [mymethod UpdateIdle]]
return
|
>
|
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
|
}} continue
trace add execution $cmd enter [mymethod Dlog]
puts "Traced $cmd"
}
}
method UpdateIdle {} {
##nagelfar vartype tree _obj,tablelist
$self Dlog UpdateIdle
set AfterId "X"
if {$PauseBgProcessing} {
$self Dlog Pause
set AfterId [after 200 [mymethod UpdateIdle]]
return
|
| ︙ | | | ︙ | |
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
|
set AfterId ""
return
}
}
if {[llength $IdleQueue] > 0} {
set node [lindex $IdleQueue end]
set leftfull [$tree rowattrib $node leftfull]
set rightfull [$tree rowattrib $node rightfull]
if {$leftfull ne ""} {
set statusvar "$leftfull ($count)"
} else {
set statusvar "$rightfull ($count)"
}
$self Dlog Reschedule
|
|
|
|
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
|
set AfterId ""
return
}
}
if {[llength $IdleQueue] > 0} {
set node [lindex $IdleQueue end]
set leftfull [$tree rowattrib $node "leftfull"]
set rightfull [$tree rowattrib $node "rightfull"]
if {$leftfull ne ""} {
set statusvar "$leftfull ($count)"
} else {
set statusvar "$rightfull ($count)"
}
$self Dlog Reschedule
|
| ︙ | | | ︙ | |
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
|
$size2 $time2]
# TODO: Configurable large file value?
if {$size1 > 1000000 && $size2 > 1000000} {
set largeFile 1
}
}
set id [$tree insertchild $node end $values]
$tree rowattrib $id type $type
set NodeStatus($id) unknown
$tree rowattrib $id leftfull $df1
$tree rowattrib $id rightfull $df2
$tree rowattrib $id largefile $largeFile
if {$type ne "directory"} {
if {$type eq "link"} {
$tree cellconfigure $id,structure -image $::img(link)
|
|
|
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
|
$size2 $time2]
# TODO: Configurable large file value?
if {$size1 > 1000000 && $size2 > 1000000} {
set largeFile 1
}
}
set id [$tree insertchild $node end $values]
$tree rowattrib $id "type" $type
set NodeStatus($id) unknown
$tree rowattrib $id leftfull $df1
$tree rowattrib $id rightfull $df2
$tree rowattrib $id largefile $largeFile
if {$type ne "directory"} {
if {$type eq "link"} {
$tree cellconfigure $id,structure -image $::img(link)
|
| ︙ | | | ︙ | |
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
|
method DoDirCompare {} {
# Reconfiguring the dirdiff widget triggers a rerun
$tree configure -leftdirvariable ::dirdiff(leftDir) \
-rightdirvariable ::dirdiff(rightDir)
}
method DoNice {} {
$tree nice $::Pref(dir,nice)
}
# Go up one level in directory hierarchy.
# 0 = both
method UpDir {{n 0}} {
global dirdiff
|
>
|
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
|
method DoDirCompare {} {
# Reconfiguring the dirdiff widget triggers a rerun
$tree configure -leftdirvariable ::dirdiff(leftDir) \
-rightdirvariable ::dirdiff(rightDir)
}
method DoNice {} {
##nagelfar vartype tree _obj,tablelist
$tree nice $::Pref(dir,nice)
}
# Go up one level in directory hierarchy.
# 0 = both
method UpDir {{n 0}} {
global dirdiff
|
| ︙ | | | ︙ | |
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
|
grid $check.rb2 -sticky w -padx 3 -pady 3
grid $check.rb3 -sticky w -padx 3 -pady 3
grid columnconfigure $check {0 1 2} -uniform a -weight 1
set opts [ttk::labelframe $top.opts -text "Options" -padding 3]
ttk::checkbutton $opts.cb1 -variable ::TmpPref(dir,ignorekey) \
-text "Ignore \$Keyword:\$"
pack {*}[winfo children $opts] -side top -anchor w
set filter [ttk::labelframe $top.filter -text "Filter" -padding 3]
ttk::label $filter.l1 -text "Include Files" -anchor w
ttk::entryX $filter.e1 -width 20 -textvariable ::TmpPref(dir,incfiles)
ttk::label $filter.l2 -text "Exclude Files" -anchor w
ttk::entryX $filter.e2 -width 20 -textvariable ::TmpPref(dir,exfiles)
ttk::label $filter.l3 -text "Include Dirs" -anchor w
|
|
|
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
|
grid $check.rb2 -sticky w -padx 3 -pady 3
grid $check.rb3 -sticky w -padx 3 -pady 3
grid columnconfigure $check {0 1 2} -uniform a -weight 1
set opts [ttk::labelframe $top.opts -text "Options" -padding 3]
ttk::checkbutton $opts.cb1 -variable ::TmpPref(dir,ignorekey) \
-text "Ignore \$Keyword:\$"
pack {*}[winfo children $opts] -side "top" -anchor w
set filter [ttk::labelframe $top.filter -text "Filter" -padding 3]
ttk::label $filter.l1 -text "Include Files" -anchor w
ttk::entryX $filter.e1 -width 20 -textvariable ::TmpPref(dir,incfiles)
ttk::label $filter.l2 -text "Exclude Files" -anchor w
ttk::entryX $filter.e2 -width 20 -textvariable ::TmpPref(dir,exfiles)
ttk::label $filter.l3 -text "Include Dirs" -anchor w
|
| ︙ | | | ︙ | |