Eskil

Check-in [20e5aa713f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Support -context with -review for CVS.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 20e5aa713f39cf54138718dd593ddeee98c01ef6
User & Date: peter 2008-04-08 16:42:06.000
Context
2008-04-08
16:52
Include side context menu if a file is only on one side. check-in: 8597927f53 user: peter tags: trunk
16:42
Support -context with -review for CVS. check-in: 20e5aa713f user: peter tags: trunk
16:41
Use lighter colours in PDF check-in: 45bef756eb user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
193
194
195
196
197
198
199





200
201
202
203
204
205
206
207

    if {$old != ""} {
        cd $old
    }
}

# Get a CVS patch
proc eskil::rev::CVS::getPatch {revs} {





    set cmd [list exec cvs diff -C 5]
    foreach rev $revs {
        lappend cmd -r $rev
    }

    if {[catch {eval $cmd} res]} {
        if {![string match "*=========*" $res]} {
            tk_messageBox -icon error -title "CVS error" -message $res








>
>
>
>
>
|








193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212

    if {$old != ""} {
        cd $old
    }
}

# Get a CVS patch
proc eskil::rev::CVS::getPatch {revs} {
    if {$::Pref(context) > 0} {
        set context $::Pref(context)
    } else {
        set context 5
    }
    set cmd [list exec cvs diff -U $context]
    foreach rev $revs {
        lappend cmd -r $rev
    }

    if {[catch {eval $cmd} res]} {
        if {![string match "*=========*" $res]} {
            tk_messageBox -icon error -title "CVS error" -message $res
︙︙