package ifneeded dde 1.0 "load [list [file join $dir tcldde81.dll]] dde"