aelegacy.tcl

It s a tool designed to extract as much information as possible from Bluetooth devices without the r

namespace eval tclAE {}

proc tclAE::print {theAEDesc} {
	return $theAEDesc
}

proc tclAE::disposeDesc {theAEDesc} {
	# not sure what to do here, so do nothing
}

proc tclAE::encode {string} {
    binary scan [encoding convertto macRoman $string] H* hex
    return "\u00ab${hex}\u00bb"
}

proc tclAE::legacyQueueHandler {theAppleEvent theReply} {
    handleReply $theAppleEvent
}