2000-08-17 19:15:41 -03:00
""" Suite Standard Suite: Common terms for most applications
Level 1 , version 1
2003-03-23 18:07:28 -04:00
Generated from / Volumes / Moes / Applications ( Mac OS 9 ) / Netscape Communicator \xe2 \x84 \xa2 Folder / Netscape Communicator \xe2 \x84 \xa2
2000-08-17 19:15:41 -03:00
AETE / AEUT resource version 1 / 0 , language 0 , script 0
"""
import aetools
import MacOS
_code = ' CoRe '
2002-04-23 18:08:54 -03:00
from StdSuites . Standard_Suite import *
class Standard_Suite_Events ( Standard_Suite_Events ) :
2000-08-17 19:15:41 -03:00
2003-04-12 19:27:11 -03:00
def close ( self , _object , _attributes = { } , * * _arguments ) :
""" close: Close an object
Required argument : the objects 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 . get ( ' errn ' , 0 ) :
raise aetools . Error , aetools . decodeerror ( _arguments )
# XXXX Optionally decode result
if _arguments . has_key ( ' ---- ' ) :
return _arguments [ ' ---- ' ]
def data_size ( self , _object , _attributes = { } , * * _arguments ) :
""" data size: Return the size in bytes of an object
Required argument : the object whose data size is to be returned
Keyword argument _attributes : AppleEvent attribute dictionary
Returns : the size of the object in bytes
"""
_code = ' core '
_subcode = ' dsiz '
if _arguments : raise TypeError , ' No optional args expected '
_arguments [ ' ---- ' ] = _object
_reply , _arguments , _attributes = self . send ( _code , _subcode ,
_arguments , _attributes )
if _arguments . get ( ' errn ' , 0 ) :
raise aetools . 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 . get ( ' errn ' , 0 ) :
raise aetools . 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 \xd5 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 . get ( ' errn ' , 0 ) :
raise aetools . Error , aetools . decodeerror ( _arguments )
# XXXX Optionally decode result
if _arguments . has_key ( ' ---- ' ) :
return _arguments [ ' ---- ' ]
2000-08-17 19:15:41 -03:00
class application ( aetools . ComponentItem ) :
2003-04-12 19:27:11 -03:00
""" application - An application program """
want = ' capp '
2003-04-01 18:05:14 -04:00
class _Prop_alert_application ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" alert application - Most of the alerts will be sent to this application using yet unspecified AE interface. We need a few alert boxes: alert, confirm and notify. Any ideas on how to design this event? mailto:atotic@netscape.com. I \xd5 d like to conform to the standard. """
which = ' ALAP '
want = ' type '
2003-04-01 18:05:14 -04:00
class _Prop_kiosk_mode ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" kiosk mode - Kiosk mode leaves very few menus enabled """
which = ' KOSK '
want = ' long '
2000-08-17 19:15:41 -03:00
# element 'cwin' as ['indx', 'name', 'ID ']
class window ( aetools . ComponentItem ) :
2003-04-12 19:27:11 -03:00
""" window - A Window """
want = ' cwin '
2003-04-01 18:05:14 -04:00
class _Prop_URL ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" URL - Current URL """
which = ' curl '
want = ' TEXT '
2003-04-01 18:05:14 -04:00
class _Prop_bounds ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" bounds - the boundary rectangle for the window """
which = ' pbnd '
want = ' qdrt '
2003-04-01 18:05:14 -04:00
class _Prop_busy ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" busy - Is window loading something right now. 2, window is busy and will reject load requests. 1, window is busy, but will interrupt outstanding loads """
which = ' busy '
want = ' long '
2003-04-01 18:05:14 -04:00
class _Prop_closeable ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" closeable - Does the window have a close box? """
which = ' hclb '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_floating ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" floating - Does the window float? """
which = ' isfl '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_index ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" index - the number of the window """
which = ' pidx '
want = ' long '
2003-04-01 18:05:14 -04:00
class _Prop_modal ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" modal - Is the window modal? """
which = ' pmod '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_name ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" name - the title of the window """
which = ' pnam '
want = ' itxt '
2003-04-01 18:05:14 -04:00
class _Prop_position ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" position - upper left coordinates of window """
which = ' ppos '
want = ' QDpt '
2003-04-01 18:05:14 -04:00
class _Prop_resizable ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" resizable - Is the window resizable? """
which = ' prsz '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_titled ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" titled - Does the window have a title bar? """
which = ' ptit '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_unique_ID ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" unique ID - Window \xd5 s unique ID (a bridge between WWW! suite window id \xd5 s and standard AE windows) """
which = ' wiid '
want = ' long '
2003-04-01 18:05:14 -04:00
class _Prop_visible ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" visible - is the window visible? """
which = ' pvis '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_zoomable ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" zoomable - Is the window zoomable? """
which = ' iszm '
want = ' bool '
2003-04-01 18:05:14 -04:00
class _Prop_zoomed ( aetools . NProperty ) :
2003-04-12 19:27:11 -03:00
""" zoomed - Is the window zoomed? """
which = ' pzum '
want = ' bool '
2002-08-07 12:53:42 -03:00
application . _superclassnames = [ ]
application . _privpropdict = {
2003-04-12 19:27:11 -03:00
' alert_application ' : _Prop_alert_application ,
' kiosk_mode ' : _Prop_kiosk_mode ,
2000-08-17 19:15:41 -03:00
}
2002-08-07 12:53:42 -03:00
application . _privelemdict = {
2003-04-12 19:27:11 -03:00
' window ' : window ,
2000-08-17 19:15:41 -03:00
}
2002-08-07 12:53:42 -03:00
window . _superclassnames = [ ]
window . _privpropdict = {
2003-04-12 19:27:11 -03:00
' URL ' : _Prop_URL ,
' bounds ' : _Prop_bounds ,
' busy ' : _Prop_busy ,
' closeable ' : _Prop_closeable ,
' floating ' : _Prop_floating ,
' index ' : _Prop_index ,
' modal ' : _Prop_modal ,
' name ' : _Prop_name ,
' position ' : _Prop_position ,
' resizable ' : _Prop_resizable ,
' titled ' : _Prop_titled ,
' unique_ID ' : _Prop_unique_ID ,
' visible ' : _Prop_visible ,
' zoomable ' : _Prop_zoomable ,
' zoomed ' : _Prop_zoomed ,
2000-08-17 19:15:41 -03:00
}
2002-08-07 12:53:42 -03:00
window . _privelemdict = {
2000-08-17 19:15:41 -03:00
}
#
# Indices of types declared in this module
#
_classdeclarations = {
2003-04-12 19:27:11 -03:00
' capp ' : application ,
' cwin ' : window ,
}
_propdeclarations = {
' ALAP ' : _Prop_alert_application ,
' KOSK ' : _Prop_kiosk_mode ,
' busy ' : _Prop_busy ,
' curl ' : _Prop_URL ,
' hclb ' : _Prop_closeable ,
' isfl ' : _Prop_floating ,
' iszm ' : _Prop_zoomable ,
' pbnd ' : _Prop_bounds ,
' pidx ' : _Prop_index ,
' pmod ' : _Prop_modal ,
' pnam ' : _Prop_name ,
' ppos ' : _Prop_position ,
' prsz ' : _Prop_resizable ,
' ptit ' : _Prop_titled ,
' pvis ' : _Prop_visible ,
' pzum ' : _Prop_zoomed ,
' wiid ' : _Prop_unique_ID ,
}
_compdeclarations = {
}
_enumdeclarations = {
2000-08-17 19:15:41 -03:00
}