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
|
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
|
-
-
+
-
-
+
-
-
+
-
-
+
-
-
+
-
-
+
|
$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
if {[catch {package require pdf4tcl} pdf4tclVer]} { set pdf4tclVer None }
$w.t insert end "Pdf4Tcl version: $pdf4tclVer\n"
set snitVer None
catch {package require snit} snitVer
if {[catch {package require snit} snitVer]} { set snitVer None }
$w.t insert end "Snit version: $snitVer\n"
set vfsVer None
catch {package require vfs} vfsVer
if {[catch {package require vfs} vfsVer]} { set vfsVer None }
$w.t insert end "Vfs version: $vfsVer\n"
set wcbVer None
catch {package require wcb} wcbVer
if {[catch {package require wcb} wcbVer]} { set wcbVer None }
$w.t insert end "Wcb version: $wcbVer\n"
set tblVer None
catch {package require tablelist_tile} tblVer
if {[catch {package require tablelist_tile} tblVer]} { set tblVer None }
$w.t insert end "Tablelist version: $tblVer\n"
set tkdndVer None
catch {package require tkdnd} tkdndVer
if {[catch {package require tkdnd} tkdndVer]} { set tkdndVer None }
$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]
|