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