Eskil

Check-in [5451fe2844]
Login

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

Overview
Comment:Include DiffUtil debug info in About window.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5451fe284436c28cc9a5be75bbd99525e87808a9
User & Date: peter 2012-07-11 20:04:32.386
Context
2012-07-11
20:07
Corrected URL check-in: 8396022337 user: peter tags: trunk
20:04
Include DiffUtil debug info in About window. check-in: 5451fe2844 user: peter tags: trunk
19:30
Added Starpack documentation check-in: 4011ab630b user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/help.tcl.
︙︙
84
85
86
87
88
89
90

91






92






93
94
95
96
97
98
99

    $w.t insert end "Made by Peter Spjuth\n"
    $w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
    $w.t insert end "\nURL: http://eskil.berlios.de\n"
    $w.t insert end "\nTcl version: [info patchlevel]\n"

    set du $::DiffUtil::version
    append du " ($::DiffUtil::implementation)"








    $w.t insert end "DiffUtil version: $du\n"






    if {![catch {package require tkdnd} tkdndVer]} {
        $w.t insert end "TkDnd version: $tkdndVer\n"
    }
    $w.t insert end "\nCredits:\n"
    $w.t insert end "Ideas for scrollbar map and merge function\n"
    $w.t insert end "taken from TkDiff"









>

>
>
>
>
>
>
|
>
>
>
>
>
>








84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

    $w.t insert end "Made by Peter Spjuth\n"
    $w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
    $w.t insert end "\nURL: http://eskil.berlios.de\n"
    $w.t insert end "\nTcl version: [info patchlevel]\n"

    set du $::DiffUtil::version
    append du " ($::DiffUtil::implementation)"
    $w.t insert end "DiffUtil version: $du\n"

    if {[info exists ::DiffUtil::DebugLibFile]} {
        set lf $::DiffUtil::DebugLibFile
        set exist [file exists $lf]
        set lf [file join {*}[lrange [file split $lf] end-1 end]]
        if {$exist} {
            $w.t insert end "  DiffUtil debug: Could not load\n"
            $w.t insert end "    $lf\n"
        } else {
            $w.t insert end "  DiffUtil debug: Could not find\n"
            $w.t insert end "    $lf\n"
        }
    }

    if {![catch {package require tkdnd} tkdndVer]} {
        $w.t insert end "TkDnd version: $tkdndVer\n"
    }
    $w.t insert end "\nCredits:\n"
    $w.t insert end "Ideas for scrollbar map and merge function\n"
    $w.t insert end "taken from TkDiff"
︙︙