Re: [MacPerl] macperl::DoAppleScript Doesn't

[Chris Nandor <pudge@pobox.com>]

At 10.38 -0500 2000.02.09, Eric Rainey wrote:
>The long and short is, I have a DoAppleScript call (see code below) which
>does >not execute at all.  Neither does it generate any errors.  When I
>step through
>the code using the debugger, it comes to the call just fine, but all it
>does in >terms of execution is a brief pause and a touch of disk access.
>The script
>works just dandy from script editor.

You can use Mac::OSA (or Mac::OSA::Simple for easier time) to get more
control, including access to error messages.  You would have to use
applescript() instead of MacPerl::DoAppleScript().


#!perl -w
use Mac::OSA::Simple ':all';
use Mac::AppleEvents;

applescript('fooo!');
if (my $err = OSAScriptError($ScriptComponents{'ascr'}, 'errs', 'TEXT')) {
    warn "AppleScript error: ", $err->get, "\n";
    AEDisposeDesc $err;  # dispose of your descriptor
}

__END__

Hopefully, that will tell you the problem.  For more info on
OSAScriptError(), see IM:IAC:

    http://developer.apple.com/techpubs/mac/IAC/IAC-353.html#MARKER-2-183

-- 
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 macperl-request@macperl.org