54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
+
+
+
+
|
$w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
$w.t insert end "\nURL: http://eskil.tcl.tk\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"
set du [SubEval {set ::DiffUtil::version}]
append du " ([SubEval {set ::DiffUtil::implementation}])"
$w.t insert end "(sub) DiffUtil version: $du\n"
# Provide debug info to help when DiffUtil does not load.
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} {
|