[MacPerl] Re: Problems installing Mac Glue

[Chris Nandor <pudge@pobox.com>]

At 01.56 +0000 1999.12.29, John Delacour wrote:
>At 10:08 pm -0500 26/12/99, Chris Nandor wrote:
>
>>At 02.26 +0000 1999.12.27, John Delacour wrote:
>>>and how do I actually get the selected text as text using the following
>>>event?
>>>
>> >use Mac::Glue;
>>>my $obj = new Mac::Glue 'Eudora';
>>>$obj -> get (selected_text);
>>>print "\n" ; print $obj;
>>>#--> Mac::Glue::GLUE0=HASH(0x21db2ec)
>>
>>  #!perl -w
>>  use Mac::Glue;
>>  $e = new Mac::Glue 'Eudora Pro';
>>  print $e->get( $e->prop(selected_text => window => 1) );
>
>When I ran this (substituting 'Eudora' since that is the app I have
>added), I got a warning in the output window "Out of memory!" repeated
>five times.  This was with 3850K of memory allocated to MacPerl.

You probably need a lot more than that.  8000K may or may not be enough, I
don't know.  It is hard to say.


>If I use 'Eudora Pro', the whole machine runs out of memory catastrophically.
>
>On restarting, increasing MacPerl's emory to 8000K and running the script,
>the Mac churned away for about 10 seconds and finally printed the text of
>the script itself in the MacPerl window.

Are you sure the text of the script itself wasn't what was selected in Eudora?


>I'm not making much progress here.  Can someone post a simple Eudora
>script that has actuallt been tested and yields a result.

The one I posted works for me and Eudora Pro 4.2.2.

-- 
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