79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
-
+
+
|
-background $bg
pack $w.t -side top -expand y -fill both
$w.t insert end "A graphical frontend to diff\n\n"
$w.t insert end "$::eskil(diffver)\n\n"
$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 "\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"
# 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} {
$w.t insert end " DiffUtil debug: Could not load\n"
$w.t insert end " $lf\n"
|