1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
|
toplevel .dirdiffX
wm title .dirdiffX "Eskil Dir Diff"
label .dirdiffX.l1 -text "Collecting $type info for rev $rev1..."
label .dirdiffX.l2 -text ""
pack .dirdiffX.l1 .dirdiffX.l2 -side top -fill x
update
set d1 [eskil::rev::${type}::mount $fullname $rev1]
set ::dirdiff(leftDir) $d1
if {$rev2 ne ""} {
.dirdiffX.l2 configure -text "and rev $rev2..."
update
set d2 [eskil::rev::${type}::mount $fullname $rev2]
set ::dirdiff(rightDir) $d2
}
|
|
>
>
>
>
>
|
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
|
toplevel .dirdiffX
wm title .dirdiffX "Eskil Dir Diff"
label .dirdiffX.l1 -text "Collecting $type info for rev $rev1..."
label .dirdiffX.l2 -text ""
pack .dirdiffX.l1 .dirdiffX.l2 -side top -fill x
update
if {[catch {eskil::rev::${type}::mount $fullname $rev1} d1]} {
destroy .dirdiffX
tk_messageBox -icon error -message $d1 -type ok
# Can ony reach this from command line, so safe to exit
exit
}
set ::dirdiff(leftDir) $d1
if {$rev2 ne ""} {
.dirdiffX.l2 configure -text "and rev $rev2..."
update
set d2 [eskil::rev::${type}::mount $fullname $rev2]
set ::dirdiff(rightDir) $d2
}
|