pkgindex.tcl

来自「这是一个Linux下的集成开发环境」· TCL 代码 · 共 7 行

if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
    package ifneeded dde 1.2 [list load [file join $dir tcldde12d.dll] dde]
} else {
    package ifneeded dde 1.2 [list load [file join $dir tcldde12.dll] dde]
}