Eskil

Check-in [9ea8f69db2]
Login

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

Overview
Comment:Handle errors when mounting a vfs
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9ea8f69db2641bd09b95496feedd3cabffbc0c99
User & Date: peter 2015-03-13 22:42:59.823
Context
2015-03-13
22:43
Use fossil ls -r if available. check-in: 2fe5c1905a user: peter tags: trunk
22:42
Handle errors when mounting a vfs check-in: 9ea8f69db2 user: peter tags: trunk
22:11
Cleaned out old option adds check-in: c48d396731 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/dirdiff.tcl.
︙︙
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
            }
︙︙