[MacPerl] Get AETE

[Chris Nandor <pudge@pobox.com>]

OK, if we want to grab the aete data from extensions and plugins in the
app, the best way is to grab the data with the Get AETE event.

    use Mac::AppleEvents::Simple;
    my $getaete = do_event('ascr', 'gdte', $appid, "'----':0");
    my $aelist = AEGetParamDesc($getaete->{REP}, keyDirectObject);
    foreach (1 .. AECountItems($aelist);
        $aeteHandle = AEGetNthDesc($aelist, $_)->data;
        # do stuff
    }

So now the handle is from the Apple Event instead of actually reading the
resource.  This is how Script Editor does it, I believe.

David, when you are doing your module, could you experiment with
getting the data this way?  There is little else that would need to
be changed, that stuff above is pretty much it.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch