1## -*- mode: Tcl; coding: utf-8; -*-
2namespace eval tclAE {}
3
4proc tclAE::print {theAEDesc} {
5	return $theAEDesc
6}
7
8proc tclAE::disposeDesc {theAEDesc} {
9	# not sure what to do here, so do nothing
10}
11
12proc tclAE::encode {string} {
13    binary scan [encoding convertto macRoman $string] H* hex
14    return "\u00ab${hex}\u00bb"
15}
16
17proc tclAE::legacyQueueHandler {theAppleEvent theReply} {
18    handleReply $theAppleEvent
19}
20