Differences From Artifact [928ffa5f75]:
- File src/rev.tcl — part of check-in [6e24d8a072] at 2005-02-20 14:57:05 on branch trunk — Moved stuff to this file. (user: peter size: 8968)
To Artifact [45a7e273ab]:
- File src/rev.tcl — part of check-in [e5b0568e7d] at 2005-07-21 19:40:58 on branch trunk — Turn on toolbar when in revision mode. (user: peter size: 8994)
| ︙ | |||
61 62 63 64 65 66 67 68 69 70 71 72 73 74 | 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 != "."} {
|
| ︙ |