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 != "."} {
|