82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
$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 "\nTcl version: [info patchlevel]\n"
set du [package provide DiffUtil]
if {[info procs DiffUtil::LocateDiffExe] ne ""} {
append du " (tcl)"
} else {
append du " (c)"
}
$w.t insert end "DiffUtil version: $du\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"
set last [lindex [split [$w.t index end] "."] 0]
$w.t configure -height $last
|
|
<
<
<
|
|
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
$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 "\nTcl version: [info patchlevel]\n"
set du $::DiffUtil::version
append du " ($::DiffUtil::implementation)"
$w.t insert end "DiffUtil version: $du\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"
set last [lindex [split [$w.t index end] "."] 0]
$w.t configure -height $last
|