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"
|