[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-Modules] Glue: working with reference forms



>At 15:40 -0500 1999.09.09, Jefferson R. Lowrey wrote:
>>At 3:58 PM -0400 9/9/99, Chris Nandor wrote:
>>>I would first try:
>>>
>>>  use Data::Dumper;
>>>  print Dumper $selection;
>>>
>>>See what is in there.
>>>
>>
>>I did that before I wrote my question actually.  I got an out of memory
>>error.  Once I upped the memory allocation of BBEdit, (after you replied) I
>>was able to actually get a print out.  It was very very long and looked
>>like it was the entire glue object.
>
>That isn't right.  That should only happen if you specify RETOBJ => 1 as a
>parameter, or do $glue->RETOBJ(1).
>
>You can do this to get the Right Thing, if you have specified RETOBJ:
>
>  print $selection->get;
>
>If you are not calling RETOBJ yourself, what version of Mac::Glue do you have?

I'm using the latest, .51,

HISTORY

	v0.51, Wednesday, September 1, 1999

		Changed ordering of search in _find_event.

		Fixed doc problems in Mac::AETE::Format::Glue: inheritance
classes are named, and optional parameters are properly denoted.

	v0.50, 12 July 1999

And the script is exactly
use strict;
use Mac::Glue ':all';
use Data::Dumper;

my $netOGlue = Mac::Glue->new('netOctopus');

my $selection = $netOGlue->get($netOGlue->prop('selection', of
=>'computers_window'));

print Dumper $selection;


>
>
>>This suggests that I might have to look at the reply, rather than the
>>direct result?
>
>You can look at the REPLY, but the get method is better.  It massages the
>data as necessary for you.

I agree that get is better, but I'm not sure I'm getting what I want to get.

 As usual there is a demo version of netOctopus available if you don't have
the 3.5 version handy.  This particular syntax, though, has been supported
since at least version 2.0.  For those of you leaning towards the dark
side, there's now a Windows version of the netOctopus admin application.

-Jeff Lowrey



==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org