193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
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 -C 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
|