summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Mac/Demo/scripting/Eudora_Suite.py363
-rw-r--r--Mac/Demo/scripting/Standard_Suite.py277
-rw-r--r--Mac/Demo/scripting/testeudora.py41
3 files changed, 681 insertions, 0 deletions
diff --git a/Mac/Demo/scripting/Eudora_Suite.py b/Mac/Demo/scripting/Eudora_Suite.py
new file mode 100644
index 0000000..7f209a5
--- /dev/null
+++ b/Mac/Demo/scripting/Eudora_Suite.py
@@ -0,0 +1,363 @@
+"""Suite Eudora Suite: Terms specific to Eudora
+Level 1, version 1
+
+Generated from Moes:Programma's:Eudora:Eudora Light
+AETE/AEUT resource version 2/16, language 0, script 0
+"""
+
+import addpack
+addpack.addpack('Tools')
+addpack.addpack('bgen')
+addpack.addpack('ae')
+
+import aetools
+import MacOS
+
+_code = 'CSOm'
+
+_Enum_eSta = {
+ 'unread' : 'euS\001', # has not been read
+ 'already_read' : 'euS\002', # has been read
+ 'replied' : 'euS\003', # has been replied to
+ 'forwarded' : 'euS\010', # has been forwarded
+ 'redirected' : 'euS\004', # has been redirected
+ 'not_sendable' : 'euS\005', # cannot be sent
+ 'sendable' : 'euS\006', # can be sent
+ 'queued' : 'euS\007', # queued for delivery
+ 'sent' : 'euS\011', # has been sent
+ 'never_sent' : 'euS\012', # never was sent
+}
+
+_Enum_eSig = {
+ 'none' : 'sig\000', # no signature
+ 'standard' : 'sig\001', # standard signature file
+ 'alternate' : 'sig\002', # alternate signature file
+}
+
+_Enum_eAty = {
+ 'AppleDouble' : 'atc\000', # AppleDouble format
+ 'AppleSingle' : 'atc\001', # AppleSingle format
+ 'BinHex' : 'atc\002', # BinHex format
+ 'uuencode' : 'atc\003', # uuencode format
+}
+
+_Enum_eNot = {
+ 'mail_arrives' : 'wArv', # mail arrival
+ 'mail_sent' : 'wSnt', # mail has been sent
+ 'will_connect' : 'wWCn', # eudora is about to connect to a mail server
+ 'has_connected' : 'wHCn', # eudora has finished talking to a mail server
+ 'has_manually_filtered' : 'mFil', # eudora has finished manually filtering messages
+ 'opens_filters' : 'wFil', # user has requested Eudora open the filter window
+}
+
+class Eudora_Suite:
+
+ _argmap_connect = {
+ 'sending' : 'eSen',
+ 'checking' : 'eChk',
+ 'waiting' : 'eIdl',
+ }
+
+ def connect(self, _no_object=None, _attributes={}, **_arguments):
+ """connect: Connect to the mail server and transfer mail
+ Keyword argument sending: true to make eudora send queued messages
+ Keyword argument checking: true to make eudora check for mail
+ Keyword argument waiting: true to make eudora wait for idle time before checking
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'eCon'
+
+ aetools.keysubst(_arguments, self._argmap_connect)
+ if _no_object != None: raise TypeError, 'No direct arg expected'
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_reply = {
+ 'quoting' : 'eQTx',
+ 'everyone' : 'eRAl',
+ 'self' : 'eSlf',
+ }
+
+ def reply(self, _object, _attributes={}, **_arguments):
+ """reply: Reply to a message
+ Required argument: the message to reply to
+ Keyword argument quoting: true if you want to quote the original text in the reply
+ Keyword argument everyone: true if you want the reply to go to everyone who got the original
+ Keyword argument self: true if you want the reply to go to yourself, too
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the reply message
+ """
+ _code = 'CSOm'
+ _subcode = 'eRep'
+
+ aetools.keysubst(_arguments, self._argmap_reply)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def forward(self, _object, _attributes={}, **_arguments):
+ """forward: Forward a message
+ Required argument: the message to forward
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the forwarded message
+ """
+ _code = 'CSOm'
+ _subcode = 'eFwd'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def redirect(self, _object, _attributes={}, **_arguments):
+ """redirect: Redirect a message
+ Required argument: the message to redirect
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the redirected message
+ """
+ _code = 'CSOm'
+ _subcode = 'eRdr'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def send_again(self, _object, _attributes={}, **_arguments):
+ """send again: Send a message again
+ Required argument: the message to send again
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the message sent again
+ """
+ _code = 'CSOm'
+ _subcode = 'eSav'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_queue = {
+ '_for' : 'eWhn',
+ }
+
+ def queue(self, _object, _attributes={}, **_arguments):
+ """queue: Queue a message to be sent
+ Required argument: the message to queue
+ Keyword argument _for: date to send the message, in seconds since 1904, UTC
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'eQue'
+
+ aetools.keysubst(_arguments, self._argmap_queue)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def unqueue(self, _object, _attributes={}, **_arguments):
+ """unqueue: Remove a message from the queue, so it wonÍt be sent
+ Required argument: the message to unqueue
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'eUnQ'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_attach_to = {
+ 'documents' : 'eDcl',
+ }
+
+ def attach_to(self, _object, _attributes={}, **_arguments):
+ """attach to: Attach documents to a message
+ Required argument: the message to attach the documents to
+ Keyword argument documents: list of documents to attach
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'eAtc'
+
+ aetools.keysubst(_arguments, self._argmap_attach_to)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_start_notifying = {
+ 'when' : 'eWHp',
+ }
+
+ def start_notifying(self, _object, _attributes={}, **_arguments):
+ """start notifying: Notify an application of things that happen
+ Required argument: an application to notify
+ Keyword argument when: what to notify the application of
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'nIns'
+
+ aetools.keysubst(_arguments, self._argmap_start_notifying)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_stop_notifying = {
+ 'when' : 'eWHp',
+ }
+
+ def stop_notifying(self, _object, _attributes={}, **_arguments):
+ """stop notifying: Stop notifying applications of things that are happening
+ Required argument: an application currently being notified
+ Keyword argument when: the things no longer to notify it of
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'nRem'
+
+ aetools.keysubst(_arguments, self._argmap_stop_notifying)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_notice = {
+ 'occurrence' : 'eWHp',
+ 'messages' : 'eMLs',
+ }
+
+ def notice(self, _no_object=None, _attributes={}, **_arguments):
+ """notice: Eudora sends this event to notify an application that something happened
+ Keyword argument occurrence: what happened
+ Keyword argument messages: of the messages involved
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'CSOm'
+ _subcode = 'eNot'
+
+ aetools.keysubst(_arguments, self._argmap_notice)
+ if _no_object != None: raise TypeError, 'No direct arg expected'
+
+ aetools.enumsubst(_arguments, 'eWHp', _Enum_eNot)
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+
+# Class 'mail folder' ('euMF') -- 'A folder containing mailboxes or other mail folders.'
+# property 'name' ('pnam') 'itxt' -- 'the name' []
+# element 'euMB' as ['indx', 'name']
+# element 'euMF' as ['indx', 'name']
+
+# Class 'mailbox' ('euMB') -- 'A mailbox.'
+# property 'name' ('pnam') 'itxt' -- 'the name of the mail folder' []
+# property 'space wasted' ('euWS') 'long' -- 'the amount of waste space in the mailbox' []
+# property 'space required' ('euNS') 'long' -- 'the minimum amount of space required to hold the mailbox' []
+# property 'location' ('euFS') 'fss ' -- 'the file the mailbox is stored in' []
+# property 'toc location' ('eTFS') 'fss ' -- 'the file the table of contents is stored in' []
+# element 'euMS' as ['indx']
+
+# Class 'message' ('euMS') -- 'A message'
+# property 'body' ('eBod') 'TEXT' -- 'the body of the message' [mutable]
+# property 'priority' ('euPY') 'long' -- 'the priority' [mutable]
+# property 'label' ('eLbl') 'long' -- 'the index of the label' [mutable]
+# property 'status' ('euST') 'eSta' -- 'the message status' [mutable enum]
+# property 'sender' ('euSe') 'itxt' -- 'the sender as appearing in the message summary' [mutable]
+# property 'date' ('euDa') 'itxt' -- 'the date as appearing in the message summary' []
+# property 'subject' ('euSu') 'itxt' -- 'the subject as appearing in the message summary' [mutable]
+# property 'size' ('euSi') 'long' -- 'the size of the message' []
+# property 'outgoing' ('euOu') 'bool' -- 'is the message is outgoing?' []
+# property 'signature' ('eSig') 'eSig' -- 'which signature the message should have' [mutable enum]
+# property 'QP' ('eMQP') 'bool' -- 'is Eudora allowed to encode text?' [mutable]
+# property 'return receipt' ('eRRR') 'bool' -- 'is a return receipt is requested?' [mutable]
+# property 'wrap' ('eWrp') 'bool' -- 'should the text be wrapped when sent?' [mutable]
+# property 'tab expansion' ('eTab') 'bool' -- 'should tabs get expanded to spaces?' [mutable]
+# property 'keep copy' ('eCpy') 'bool' -- 'should a copy should be kept after message is sent?' [mutable]
+# property 'preserve macintosh info' ('eXTX') 'bool' -- 'should Macintosh information always be sent with attachments?' [mutable]
+# property 'attachment encoding' ('eATy') 'eAty' -- 'the type of encoding to use for attachments' [mutable enum]
+# property 'show all headers' ('eBla') 'bool' -- 'should all headers be visible?' [mutable]
+# property 'transliteration table' ('eTbl') 'long' -- 'the resource id of the transliteration table' [mutable]
+# property 'will be fetched' ('eWFh') 'bool' -- 'will the message be [re]fetched on next check?' [mutable]
+# property 'will be deleted' ('eWDl') 'bool' -- 'will the message be deleted from server on next check?' [mutable]
+# element 'euFd' as ['name']
+
+# Class 'field' ('euFd') -- 'An RFC 822 header field in a message (field named "" is the body)'
+
+# Class 'setting' ('ePrf') -- "Eudora's settings"
diff --git a/Mac/Demo/scripting/Standard_Suite.py b/Mac/Demo/scripting/Standard_Suite.py
new file mode 100644
index 0000000..cd11b9d
--- /dev/null
+++ b/Mac/Demo/scripting/Standard_Suite.py
@@ -0,0 +1,277 @@
+"""Suite Standard Suite: Common terms for most applications
+Level 1, version 1
+
+Generated from Moes:Programma's:Eudora:Eudora Light
+AETE/AEUT resource version 2/16, language 0, script 0
+"""
+
+import addpack
+addpack.addpack('Tools')
+addpack.addpack('bgen')
+addpack.addpack('ae')
+
+import aetools
+import MacOS
+
+_code = 'CoRe'
+
+class Standard_Suite:
+
+ def close(self, _object, _attributes={}, **_arguments):
+ """close: Close an object
+ Required argument: the object to close
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'core'
+ _subcode = 'clos'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_count = {
+ 'each' : 'kocl',
+ }
+
+ def count(self, _object, _attributes={}, **_arguments):
+ """count: Return the number of elements of a particular class within an object
+ Required argument: the object whose elements are to be counted
+ Keyword argument each: the class of the elements to be counted. Keyword 'each' is optional in AppleScript
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: the number of elements
+ """
+ _code = 'core'
+ _subcode = 'cnte'
+
+ aetools.keysubst(_arguments, self._argmap_count)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def exists(self, _object, _attributes={}, **_arguments):
+ """exists: Verify if an object exists
+ Required argument: the object in question
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: true if it exists, false if not
+ """
+ _code = 'core'
+ _subcode = 'doex'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def get(self, _object, _attributes={}, **_arguments):
+ """get: Get the data for an object
+ Required argument: the object whose data is to be returned
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: the data from the object
+ """
+ _code = 'core'
+ _subcode = 'getd'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_make = {
+ 'new' : 'kocl',
+ 'at' : 'insh',
+ }
+
+ def make(self, _no_object=None, _attributes={}, **_arguments):
+ """make: Make a new element
+ Keyword argument new: the class of the new element. Keyword 'new' is optional in AppleScript
+ Keyword argument at: the location at which to insert the element
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the new object
+ """
+ _code = 'core'
+ _subcode = 'crel'
+
+ aetools.keysubst(_arguments, self._argmap_make)
+ if _no_object != None: raise TypeError, 'No direct arg expected'
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_move = {
+ 'to' : 'insh',
+ }
+
+ def move(self, _object, _attributes={}, **_arguments):
+ """move: Move object to a new location
+ Required argument: the object to move
+ Keyword argument to: the new location for the object
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the object after they have been moved
+ """
+ _code = 'core'
+ _subcode = 'move'
+
+ aetools.keysubst(_arguments, self._argmap_move)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_duplicate = {
+ 'to' : 'insh',
+ }
+
+ def duplicate(self, _object, _attributes={}, **_arguments):
+ """duplicate: Make a duplicate object
+ Required argument: the object to move
+ Keyword argument to: the new location for the object
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ Returns: to the object after they have been moved
+ """
+ _code = 'core'
+ _subcode = 'clon'
+
+ aetools.keysubst(_arguments, self._argmap_duplicate)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def open(self, _object, _attributes={}, **_arguments):
+ """open: Open the specified object
+ Required argument: list of objects to open
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'aevt'
+ _subcode = 'odoc'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def _print(self, _object, _attributes={}, **_arguments):
+ """print: Print the specified message
+ Required argument: the message to print
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'aevt'
+ _subcode = 'pdoc'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ def save(self, _object, _attributes={}, **_arguments):
+ """save: Save an object
+ Required argument: the composition message to save
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'core'
+ _subcode = 'save'
+
+ if _arguments: raise TypeError, 'No optional args expected'
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+ _argmap_set = {
+ 'to' : 'data',
+ }
+
+ def set(self, _object, _attributes={}, **_arguments):
+ """set: Set an object's data
+ Required argument: the object to change
+ Keyword argument to: the new value
+ Keyword argument _attributes: AppleEvent attribute dictionary
+ """
+ _code = 'core'
+ _subcode = 'setd'
+
+ aetools.keysubst(_arguments, self._argmap_set)
+ _arguments['----'] = _object
+
+
+ _reply, _arguments, _attributes = self.send(_code, _subcode,
+ _arguments, _attributes)
+ if _arguments.has_key('errn'):
+ raise MacOS.Error, aetools.decodeerror(_arguments)
+ # XXXX Optionally decode result
+ if _arguments.has_key('----'):
+ return _arguments['----']
+
+
+# Class 'application' ('capp') -- 'An application program'
+# property 'version' ('vers') 'itxt' -- 'the version number' []
+# property 'selected text' ('eStx') 'TEXT' -- 'the text of the user\325s current selection' []
+# element 'euMF' as ['indx', 'name']
+# element 'ePrf' as ['indx']
diff --git a/Mac/Demo/scripting/testeudora.py b/Mac/Demo/scripting/testeudora.py
new file mode 100644
index 0000000..4c83085
--- /dev/null
+++ b/Mac/Demo/scripting/testeudora.py
@@ -0,0 +1,41 @@
+"""A test program that allows us to control Eudora"""
+
+import sys
+import addpack
+addpack.addpack('Tools')
+addpack.addpack('bgen')
+addpack.addpack('ae')
+import aetools
+import Eudora_Suite
+import Required_Suite
+import MacOS
+
+class Eudora(aetools.TalkTo, Required_Suite.Required_Suite, \
+ Eudora_Suite.Eudora_Suite):
+ """A class that can talk to Eudora"""
+ pass
+
+# The Creator signature of eudora:
+SIGNATURE="????"
+
+def main():
+ talker = Eudora(SIGNATURE)
+ while 1:
+ print 'get, put, quit (eudora) or exit (this program) ?'
+ line = sys.stdin.readline()
+ try:
+ if line[0] == 'g':
+ talker.connect(checking=1)
+ elif line[0] == 'p':
+ talker.connect(sending=1)
+ elif line[0] == 'q':
+ talker.quit()
+ elif line[0] == 'e':
+ break
+ except MacOS.Error, arg:
+ if arg[0] == -609:
+ print 'Connection invalid, is eudora running?'
+ else:
+ print 'Error, possibly ', arg[1]
+
+main()