69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
$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"
set last [lindex [split [$w.t index end] "."] 0]
$w.t configure -height $last
$w.t configure -state disabled
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
$w.t insert end " $lf\n"
} else {
$w.t insert end " DiffUtil debug: Could not find\n"
$w.t insert end " $lf\n"
}
}
set pdf4tclVer None
catch {package require pdf4tcl} pdf4tclVer
$w.t insert end "Pdf4Tcl version: $pdf4tclVer\n"
set snitVer None
catch {package require snit} snitVer
$w.t insert end "Snit version: $snitVer\n"
set vfsVer None
catch {package require vfs} vfsVer
$w.t insert end "Vfs version: $vfsVer\n"
set wcbVer None
catch {package require wcb} wcbVer
$w.t insert end "Wcb version: $wcbVer\n"
set tblVer None
catch {package require tablelist_tile} tblVer
$w.t insert end "Tablelist version: $tblVer\n"
set tkdndVer None
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"
set last [lindex [split [$w.t index end] "."] 0]
$w.t configure -height $last
$w.t configure -state disabled
|