[MacPerl] Re: Problems installing Mac Glue

[John Delacour <JD@EREMITA.demon.co.uk>]

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.

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.

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

JD


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