/usr/lib/blt2.5/init.tcl is in tk8.6-blt2.5 2.5.3+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | namespace eval ::blt {
proc initializeLibrary {} {
foreach w {Button Checkbutton Radiobutton Menubutton Label Scrollbar} {
foreach i [bind $w] {
bind B$w $i [bind $w $i]
}
}
}
if {[info commands tk] == "tk"} {
initializeLibrary
}
}
|