pkgindex.tcl

来自「Linux下的MSN聊天程序源码」· TCL 代码 · 共 13 行

if {[package vsatisfies [package provide Tcl] 8.5]} {
    package ifneeded snit 2.0 \
        [list source [file join $dir snit2.tcl]]
}

if {[package vsatisfies [package provide Tcl] 8.4]} {
    package ifneeded snit 1.1 \
        [list source [file join $dir snit.tcl]]
} elseif {[package vsatisfies [package provide Tcl] 8.3]} {
    package ifneeded snit 1.1 \
        [list source [file join $dir snit83.tcl]]
}