package ifneeded dde 1.1 "load [list [file join $dir tcldde83.dll]] dde"