Eskil

Check-in [e5b0568e7d]
Login

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

Overview
Comment:Turn on toolbar when in revision mode.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e5b0568e7dde11fe12c0705eda258910298eefb0
User & Date: peter 2005-07-21 19:40:58.000
Context
2005-07-21
19:49
Made menus into real menubar. check-in: 62b5902400 user: peter tags: trunk
19:40
Turn on toolbar when in revision mode. check-in: e5b0568e7d user: peter tags: trunk
19:39
Moved block compare to its own file. Made menus into a real menubar. Made other controls into toolbar. check-in: 5ef46d8599 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
61
62
63
64
65
66
67

68
69
70
71
72
73
74

    set ::diff($top,rightDir) [file dirname $file]
    set ::diff($top,RevFile) $file
    set ::diff($top,rightLabel) $file
    set ::diff($top,rightFile) $file
    set ::diff($top,rightOK) 1
    set ::diff($top,leftLabel) $rev
    set ::diff($top,leftOK) 0

}

# Get a CVS revision
proc GetCvsRev {filename outfile {rev {}}} {
    set old ""
    set dir [file dirname $filename]
    if {$dir != "."} {








>








61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

    set ::diff($top,rightDir) [file dirname $file]
    set ::diff($top,RevFile) $file
    set ::diff($top,rightLabel) $file
    set ::diff($top,rightFile) $file
    set ::diff($top,rightOK) 1
    set ::diff($top,leftLabel) $rev
    set ::diff($top,leftOK) 0
    set ::Pref(toolbar) 1
}

# Get a CVS revision
proc GetCvsRev {filename outfile {rev {}}} {
    set old ""
    set dir [file dirname $filename]
    if {$dir != "."} {
︙︙