Listing 2.
aete.converter output for Progress Bar
Chris Nandor

Interprocess Communication with MacPerl
The Perl Journal, Winter 1997
 

@TITLE "Events for PowerPudge:Utilities:Misc.:Progress Bar:Progress Bar 1.0.1"

@VERSION 1.0



@SUITE "Required", "Subset of the Required Suite supported by Progress Bar", 

        'Reqd'



@EVENT "quit", "Quit the application", 'aevt', 'quit'

@REPLY 'null', "", REQ, SINGLE, NOENUM

@DIRECT 'null', "", OPT, SINGLE, NOENUM, NOCHANGE



@EVENT "run", "Sent when the application is double-clicked", 

        'aevt', 'oapp'

@REPLY 'null', "", REQ, SINGLE, NOENUM

@DIRECT 'null', "", OPT, SINGLE, NOENUM, NOCHANGE





@SUITE "Progress Bar", "Subset of Standard Suite supported by Progress Bar", 

       'PBar'



@EVENT "make", "Make a new window", 'core', 'crel'

@REPLY 'null', "", OPT, SINGLE, NOENUM

@DIRECT 'null', "", OPT, SINGLE, NOENUM, CHANGE

@PARAM "new", 'kocl', 'type', "the class of the new element (must be window)", 

        REQ, SINGLE, NOENUM

@PARAM "with properties", 'prdt', 'reco', 

       "the initial values for the properties of the window", 

        OPT, SINGLE, NOENUM



@EVENT "close", "Close a window", 'core', 'clos'

@REPLY 'null', "", REQ, SINGLE, NOENUM

@DIRECT 'obj ', "Window to close", REQ, SINGLE, NOENUM, NOCHANGE



@EVENT "set", "Set an object's data", 'core', 'setd'

@REPLY 'null', "", OPT, SINGLE, NOENUM

@DIRECT 'obj ', "the object to change", REQ, SINGLE, NOENUM, CHANGE

@PARAM "to", 'data', '****', "the new value", REQ, SINGLE, NOENUM



@CLASS "window", 'cwin', "A Window containing a Progress Bar"

@PROPERTY "Name", 'pnam', 'TEXT', "", SINGLE, NOENUM, RDWR

@PROPERTY "Position", 'ppos', 'qdPT', "", SINGLE, NOENUM, RDWR

@ELEMENT 'PBar', 'indx'



@CLASS "progress bar", 'PBar', "Progress Bar"

@PROPERTY "minimum value", 'MinV', 'shor', "", SINGLE, NOENUM, RDWR

@PROPERTY "maximum value", 'MaxV', 'shor', "", SINGLE, NOENUM, RDWR

@PROPERTY "current value", 'Valu', 'shor', "", SINGLE, NOENUM, RDWR

@PROPERTY "caption", 'Cap1', 'TEXT', "", SINGLE, NOENUM, RDWR

@PROPERTY "subcaption", 'Cap2', 'TEXT', "", SINGLE, NOENUM, RDWR