Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Do not trigger a revision dirdiff when starting blank. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ce73fe5d821873fbd664ba98cccac484 |
| User & Date: | peter 2015-02-25 22:37:55.770 |
Context
|
2015-02-25
| ||
| 23:04 | Moved nice setting to Preferences. Save prefs from dirdiff window. check-in: b07b1877ff user: peter tags: trunk | |
| 22:37 | Do not trigger a revision dirdiff when starting blank. check-in: ce73fe5d82 user: peter tags: trunk | |
| 02:27 | Cannot use fossil ls to get historical info. Instead parse the fileage web page. check-in: cfc89c24fc user: peter tags: trunk | |
Changes
Changes to src/dirdiff.tcl.
| ︙ | ︙ | |||
1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 |
grid $win.bu -padx 6 -ipadx 15
grid rowconfigure $win 1 -weight 1
grid columnconfigure $win {0 2} -weight 1
}
method DoDirCompare {} {
$tree configure -leftdirvariable ::dirdiff(leftDir) \
-rightdirvariable ::dirdiff(rightDir)
}
method DoNice {} {
$tree nice $nice
}
| > | 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 |
grid $win.bu -padx 6 -ipadx 15
grid rowconfigure $win 1 -weight 1
grid columnconfigure $win {0 2} -weight 1
}
method DoDirCompare {} {
# Reconfiguring the dirdiff widget triggers a rerun
$tree configure -leftdirvariable ::dirdiff(leftDir) \
-rightdirvariable ::dirdiff(rightDir)
}
method DoNice {} {
$tree nice $nice
}
|
| ︙ | ︙ | |||
1283 1284 1285 1286 1287 1288 1289 |
if {[info exists opts(doptrev1)] && $opts(doptrev1) ne ""} {
lappend revs $opts(doptrev1)
}
if {[info exists opts(doptrev2)] && $opts(doptrev2) ne ""} {
lappend revs $opts(doptrev2)
}
| > > | > | 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 |
if {[info exists opts(doptrev1)] && $opts(doptrev1) ne ""} {
lappend revs $opts(doptrev1)
}
if {[info exists opts(doptrev2)] && $opts(doptrev2) ne ""} {
lappend revs $opts(doptrev2)
}
# TODO: Trigger this on DirDiff, so a rerun can do it, and maybe have rev
# GUI fields
if {$::dirdiff(leftDir) eq $::dirdiff(rightDir) &&
$::dirdiff(leftDir) ne ""} {
set fullname $::dirdiff(leftDir)
set type [detectRevSystem $fullname]
# Is this a revision system with dirdiff support?
if {[info commands eskil::rev::${type}::mount] ne ""} {
# No -r given; fall back on current.
# All vcs with dirdiff support should know that _ means current
if {[llength $revs] == 0} {set revs _}
|
| ︙ | ︙ |
Changes to src/eskil.tcl.
| ︙ | ︙ | |||
4286 4287 4288 4289 4290 4291 4292 |
return [makeClipDiffWin]
}
# Figure out if we start in a diff or dirdiff window.
set len [llength $files]
if {$len == 0 && $dodir} {
| | | | 4286 4287 4288 4289 4290 4291 4292 4293 4294 4295 4296 4297 4298 4299 4300 4301 |
return [makeClipDiffWin]
}
# Figure out if we start in a diff or dirdiff window.
set len [llength $files]
if {$len == 0 && $dodir} {
set dirdiff(leftDir) ""
set dirdiff(rightDir) ""
return [makeDirDiffWin]
}
if {$len == 1} {
set fullname [lindex $files 0]
if {[FileIsDirectory $fullname 1]} {
set dirdiff(leftDir) $fullname
set dirdiff(rightDir) $dirdiff(leftDir)
|
| ︙ | ︙ |