| ︙ | | |
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
|
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
|
-
+
|
set dst $lf
} elseif {$lp ne ""} {
set dst [file join $lp [file tail $src]]
} else {
return
}
} else {
error "Bad to argument to CopyFile: $to"
error "Bad from argument to CopyFile: $from"
}
if {[file exists $dst]} {
if {[tk_messageBox -icon question -title "Overwrite file?" -message \
"Copy\n$src\noverwriting\n$dst ?" -type yesno] eq "yes"} {
file copy -force $src $dst
# FIXA: update file info in tree too
|
| ︙ | | |
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
|
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
|
-
+
|
snit::widget DirDiff {
hulltype toplevel
widgetclass Toplevel
component tree
variable statusVar
constructor {args} {
lappend ::diff(diffWindows) $win
eskilRegisterToplevel $win
wm title $win "Eskil Dir"
wm protocol $win WM_DELETE_WINDOW [list cleanupAndExit $win]
install tree using DirCompareTree $win.dc \
-leftdirvariable ::dirdiff(leftDir) \
-rightdirvariable ::dirdiff(rightDir) \
-statusvar [myvar statusVar]
|
| ︙ | | |
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
|
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
|
-
+
|
$win.m add cascade -label "Help" -underline 0 -menu $win.m.help
menu $win.m.help
$win.m.help add command -label "Tutorial" -command makeTutorialWin \
-underline 0
$win.m.help add command -label "About" -command makeAboutWin -underline 0
if {$::debug} {
if {$::eskil(debug)} {
$win.m add cascade -label "Debug" -menu $win.m.md -underline 0
menu $win.m.md
if {$::tcl_platform(platform) eq "windows"} {
$win.m.md add checkbutton -label "Console" -variable consolestate \
-onvalue show -offvalue hide -command {console $consolestate}
$win.m.md add separator
}
|
| ︙ | | |
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
|
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
|
-
+
|
-command "ApplyDirDiffPref ; destroy $top"
ttk::button $fb.ap -width 10 -text "Apply" -command ApplyDirDiffPref
ttk::button $fb.ca -width 10 -text "Cancel" -command "destroy $top"
grid $fb.ok $fb.ap $fb.ca -padx 3 -pady 3
grid columnconfigure $fb {0 1 2} -uniform a -weight 1
pack $fb -side bottom -fill x
pack $check $opts $filter -side top -fill x
pack $check $opts $filter -side "top" -fill x
}
# Experimental...
#preprocess filter pa namnen sa man kan jamfora bibliotek
#med andrade namn.
proc makeRegSubWin {} {
set top .ddregsub
|
| ︙ | | |
1123
1124
1125
1126
1127
1128
1129
1130
|
1123
1124
1125
1126
1127
1128
1129
1130
1131
|
+
|
set ::dirdiff(leftDir) ""
}
if {![info exists ::dirdiff(rightDir)]} {
set ::dirdiff(rightDir) ""
}
destroy .dirdiff
DirDiff .dirdiff
return .dirdiff
}
|