Hello,
I posted this query some days ago, but it seems that there was no answer at
all. I would like to ask the same question again, assuming that probably
nobody noticed my posting.
Thank you very much in advance for any idea (even a hint or a guess...).
Best regards,
Nobumi Iyanaga
Tokyo,
Japan
>Hello,
>
>I have another question on AppleEvent:
>I want to send a "do script" command to Nisus Writer. Following the
>example in
>macperlcat.pod, and the examples you gave me another day, I think the
>following snippet will work, EXCEPT the AppleEvent parameters
>($ae{'params'}) [here, I simply copied the example given in
>macperlcat.pod].
>
>use Mac::AppleEvents;
>my (%ae, $event, $reply);
>
>my $macro;
>$macro = 'Find/Replace "a" "b" "-g-SaA"';
>
>%ae = (
>target =>'NISI',
>class =>'aevt',
>id =>'dosc',
>params =>["'----':obj {want:type(cobj), " .
> "from:null(), form:enum(name), seld:TEXT(\@)}",
> $macro]
>);
>
>$event = AEBuildAppleEvent(
> $ae{'class'}, $ae{'id'}, typeApplSignature,
> $ae{'target'},kAutoGenerateReturnID, kAnyTransactionID,
> @{$ae{'params'}}) || die($^E);
>$reply = AESend($event, kAEWaitReply) || die($^E);
>AEDisposeDesc($event);
>AEDisposeDesc($reply);
>
>-------
>
>More generally, is there any way to know what we have to put in:
>
>want:type(xxxx)
>from:xxxx
>form:xxxx
>seld:xxxx
>
>?
>
>I have Capture AE, which gives me:
>
>Process("Nisusィ Writer").SendAE "NISI,dosc,'----':メFind/Replace "a" "b"
>"-g-SaA"モ, &subj:'null'()"
>
>So I think that "from" must be "null()"...
>
>Thank you in advance for any insight.
