1if {![package vsatisfies [package provide Tcl] 8]} {return} 2if {[string compare $::tcl_platform(platform) windows]} {return} 3if {[info exists ::tcl_platform(debug)]} { 4 package ifneeded dde 1.2.4 [list load [file join $dir tcldde12g.dll] dde] 5} else { 6 package ifneeded dde 1.2.4 [list load [file join $dir tcldde12.dll] dde] 7} 8