[MacPerl-Modules] Re: Mac::Glue, can't open($file)

[Chris Nandor <pudge@pobox.com>]

At 22.26 +0100 1999.10.31, Axel Rose wrote:
>###############################################################
>#!perl -w
>
>use Mac::Glue;
>
>my $glue = new Mac::Glue 'Canto_Cumulus_Network';
>
>die "can't create new glue object for 'Canto_Cumulus_Network'" if (! $glue);
>$file="Fressplatte:testdb";
>die "not readable \"$file\"" if ( ! -r $file );
>
>$glue->open($file);
>###############################################################
>
>I recorded logs with AETracker, one with ScriptEditor another with MacPerl,
>see below. 'open "Fressplatte:testdb"' works o.k.. I see the difference
>starting after "Wanting: Descriptor Type:list Key Type :  ----". This
>is not understandable to me in the moment.
>
>The "Canto_Cumulus_Network.POD" says:
>	$obj->open(obj , [with_password => TEXT])
>
>	Open the specified object(s) (aevt/odoc)
>
>	Parameters:
>
>		    direct object (----): list of objects to open
>		    with_password (Pass): The password for write access

The problem is that an "obj " is expected, and you gave it a regular ol'
string.  Try this:

    $glue->open( $glue->obj(file => $file) );

Hopefully that will work.  If not, try substituting "alias" for "file" in
the obj() call.

Whenever you see "obj " in the glue's POD, that means you need to use the
obj() (or prop()) methods to create an AE object (an Apple event object
specifier record), or use an AE object that has been returned by another
event call (i.e., "$obj = $glue->get_some_object; $obj->open($obj)").

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