Re: [MacPerl] question about appleevent

[Alan Fry <ajf@afco.demon.co.uk>]

>Well, I couldn't figure out today how to unmount (anyone else have this?),

Finder's 'put away' command I think.

#!perl

use Mac::AppleEvents;
use Mac::Files;

$volume = "whatever:"         # colon important
$alias = NewAliasMinimal $volume;

$evt = AEBuildAppleEvent('fndr', 'ptwy', typeApplSignature, "MACS", 0, 0,
"'----':alis(\@\@)", $alias) or die $^E;

$rep = AESend($evt, kAEWaitReply) or die $^E;

print AEPrint($evt), "\n";
print AEPrint($rep), "\n";

AEDisposeDesc $evt;
AEDisposeDesc $rep;


Alan Fry



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