Mercurial > cpython-lru_cache-weakref

annotate Mac/Demo/scripting/Standard_Suite.py @ 4566:6403c94de50d legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added safeguard against failure in __del__.
author Guido van Rossum <guido@python.org>
date Wed, 27 Nov 1996 19:39:58 +0000
parents 97d3652e57d3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
1 """Suite Standard Suite: Common terms for most applications
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
2 Level 1, version 1
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
3
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
4 Generated from flap:Programma's:Eudora Light
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
5 AETE/AEUT resource version 2/16, language 0, script 0
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
6 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
7
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
8 import aetools
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
9 import MacOS
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
10
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
11 _code = 'CoRe'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
12
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
13 class Standard_Suite:
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
14
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
15 def close(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
16 """close: Close an object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
17 Required argument: the object to close
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
18 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
19 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
20 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
21 _subcode = 'clos'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
22
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
23 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
24 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
25
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
26
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
27 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
28 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
29 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
30 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
31 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
32 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
33 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
34
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
35 _argmap_count = {
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
36 'each' : 'kocl',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
37 }
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
38
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
39 def count(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
40 """count: Return the number of elements of a particular class within an object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
41 Required argument: the object whose elements are to be counted
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
42 Keyword argument each: the class of the elements to be counted. Keyword 'each' is optional in AppleScript
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
43 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
44 Returns: the number of elements
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
45 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
46 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
47 _subcode = 'cnte'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
48
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
49 aetools.keysubst(_arguments, self._argmap_count)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
50 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
51
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
52
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
53 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
54 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
56 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
58 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
59 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
60
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
61 def exists(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
62 """exists: Verify if an object exists
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
63 Required argument: the object in question
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
64 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
65 Returns: true if it exists, false if not
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
66 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
67 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
68 _subcode = 'doex'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
69
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
70 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
71 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
72
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
73
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
74 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
75 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
76 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
77 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
78 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
79 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
80 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
81
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
82 def get(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
83 """get: Get the data for an object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
84 Required argument: the object whose data is to be returned
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
85 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
86 Returns: the data from the object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
87 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
88 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
89 _subcode = 'getd'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
90
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
91 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
92 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
93
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
94
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
95 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
96 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
97 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
98 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
99 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
100 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
101 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
102
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
103 _argmap_make = {
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
104 'new' : 'kocl',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
105 'at' : 'insh',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
106 }
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
107
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
108 def make(self, _no_object=None, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
109 """make: Make a new element
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
110 Keyword argument new: the class of the new element. Keyword 'new' is optional in AppleScript
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
111 Keyword argument at: the location at which to insert the element
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
112 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
113 Returns: to the new object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
114 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
115 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
116 _subcode = 'crel'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
117
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
118 aetools.keysubst(_arguments, self._argmap_make)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
119 if _no_object != None: raise TypeError, 'No direct arg expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
120
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
121
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
122 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
123 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
124 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
125 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
126 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
127 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
128 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
129
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
130 _argmap_move = {
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
131 'to' : 'insh',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
132 }
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
133
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
134 def move(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
135 """move: Move object to a new location
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
136 Required argument: the object to move
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
137 Keyword argument to: the new location for the object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
138 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
139 Returns: to the object after they have been moved
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
140 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
141 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
142 _subcode = 'move'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
143
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
144 aetools.keysubst(_arguments, self._argmap_move)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
145 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
146
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
147
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
148 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
149 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
150 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
151 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
152 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
153 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
154 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
155
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
156 _argmap_duplicate = {
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
157 'to' : 'insh',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
158 }
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
159
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
160 def duplicate(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
161 """duplicate: Make a duplicate object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
162 Required argument: the object to move
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
163 Keyword argument to: the new location for the object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
164 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
165 Returns: to the object after they have been moved
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
166 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
167 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
168 _subcode = 'clon'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
169
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
170 aetools.keysubst(_arguments, self._argmap_duplicate)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
171 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
172
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
173
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
174 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
175 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
176 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
177 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
178 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
179 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
180 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
181
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
182 def open(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
183 """open: Open the specified object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
184 Required argument: list of objects to open
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
185 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
186 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
187 _code = 'aevt'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
188 _subcode = 'odoc'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
189
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
190 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
191 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
192
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
193
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
194 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
195 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
196 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
197 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
198 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
199 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
200 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
201
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
202 def _print(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
203 """print: Print the specified message
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
204 Required argument: the message to print
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
205 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
206 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
207 _code = 'aevt'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
208 _subcode = 'pdoc'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
209
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
210 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
211 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
212
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
213
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
214 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
215 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
216 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
217 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
218 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
219 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
220 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
221
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
222 def save(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
223 """save: Save an object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
224 Required argument: the composition message to save
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
225 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
226 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
227 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
228 _subcode = 'save'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
229
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
230 if _arguments: raise TypeError, 'No optional args expected'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
231 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
232
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
233
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
234 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
235 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
236 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
237 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
238 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
239 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
240 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
241
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
242 _argmap_set = {
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
243 'to' : 'data',
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
244 }
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
245
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
246 def set(self, _object, _attributes={}, **_arguments):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
247 """set: Set an object's data
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
248 Required argument: the object to change
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
249 Keyword argument to: the new value
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
250 Keyword argument _attributes: AppleEvent attribute dictionary
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
251 """
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
252 _code = 'core'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
253 _subcode = 'setd'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
254
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
255 aetools.keysubst(_arguments, self._argmap_set)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
256 _arguments['----'] = _object
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
257
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
258
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
259 _reply, _arguments, _attributes = self.send(_code, _subcode,
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
260 _arguments, _attributes)
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
261 if _arguments.has_key('errn'):
4318
97d3652e57d3 - Regenerated suites
Jack Jansen <jack.jansen@cwi.nl>
parents: 3467
diff changeset
262 raise aetools.Error, aetools.decodeerror(_arguments)
3274
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
263 # XXXX Optionally decode result
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
264 if _arguments.has_key('----'):
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
265 return _arguments['----']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
266
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
267
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
268 # Class 'application' ('capp') -- 'An application program'
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
269 # property 'version' ('vers') 'itxt' -- 'the version number' []
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
270 # property 'selected text' ('eStx') 'TEXT' -- 'the text of the user\325s current selection' []
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
271 # element 'euMF' as ['indx', 'name']
975ccfa721f6 Example: control eudora using AppleEvents
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
272 # element 'ePrf' as ['indx']