/usr/share/tcltk/tklib0.5/widget/pkgIndex.tcl is in tklib 0.5-3.
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 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | # Tcl Package Index File 1.0
if {![llength [info commands ::tcl::pkgindex]]} {
proc ::tcl::pkgindex {dir bundle bundlev packages} {
set allpkgs [list]
foreach {pkg ver file} $packages {
lappend allpkgs [list package require $pkg $ver]
package ifneeded $pkg $ver [list source [file join $dir $file]]
}
if {$bundle != ""} {
lappend allpkgs [list package provide $bundle $bundlev]
package ifneeded $bundle $bundlev [join $allpkgs \n]
}
return
}
}
if {![package vsatisfies [package provide Tcl] 8.4]} {return}
::tcl::pkgindex $dir widget::all 1.2 {
widget 3.0 widget.tcl
widget::calendar 0.9 calendar.tcl
widget::dateentry 0.91 dateentry.tcl
widget::dialog 1.3 dialog.tcl
widget::menuentry 1.0 mentry.tcl
widget::panelframe 1.1 panelframe.tcl
widget::ruler 1.1 ruler.tcl
widget::screenruler 1.2 ruler.tcl
widget::scrolledtext 1.0 stext.tcl
widget::scrolledwindow 1.2 scrollw.tcl
widget::statusbar 1.2 statusbar.tcl
widget::superframe 1.0 superframe.tcl
widget::toolbar 1.2 toolbar.tcl
}
|