Eskil

Check-in [2948da46ff]
Login

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

Overview
Comment:Made a small splash screen for vcs dirdiff startup
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2948da46ffcd7993c72d973100d073ee9c2435c7
User & Date: peter 2014-11-17 20:30:01.277
Context
2014-11-17
21:43
Upgraded to latest tablelist check-in: 72eee063bd user: peter tags: trunk
20:30
Made a small splash screen for vcs dirdiff startup check-in: 2948da46ff user: peter tags: trunk
20:17
Adapt test to code change check-in: 2add1c9b29 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/dirdiff.tcl.
︙︙
1287
1288
1289
1290
1291
1292
1293










1294
1295
1296


1297
1298
1299

1300
1301
1302
1303
1304
1305
1306

        if {[info commands eskil::rev::${type}::mount] ne ""} {
            # No -r given; fall back on current.
            # Note: Only fossil and svn supports 0 for current currently
            if {[llength $revs] == 0} {set revs 0}
            set revs [eskil::rev::${type}::ParseRevs $fullname $revs]
            set rev1 [lindex $revs 0]
            set rev2 [lindex $revs 1]










            set d1 [eskil::rev::${type}::mount $fullname $rev1]
            set ::dirdiff(leftDir) $d1
            if {$rev2 ne ""} {


                set d2 [eskil::rev::${type}::mount $fullname $rev2]
                set ::dirdiff(rightDir) $d2
            }

        }
    }

    destroy .dirdiff
    DirDiff .dirdiff
    return .dirdiff
}








>
>
>
>
>
>
>
>
>
>



>
>



>








1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319

        if {[info commands eskil::rev::${type}::mount] ne ""} {
            # No -r given; fall back on current.
            # Note: Only fossil and svn supports 0 for current currently
            if {[llength $revs] == 0} {set revs 0}
            set revs [eskil::rev::${type}::ParseRevs $fullname $revs]
            set rev1 [lindex $revs 0]
            set rev2 [lindex $revs 1]

            # A little "splash-screen" to show progress
            destroy .dirdiffX
            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
            }
            destroy .dirdiffX
        }
    }

    destroy .dirdiff
    DirDiff .dirdiff
    return .dirdiff
}