Re: [MacPerl] app glue alpha online

[Chris Nandor <pudge@pobox.com>]

At 12.31 -0400 1998.09.17, Josh Gemmell wrote:
>pudge@pobox.com,Internet writes:
>>The sample script, plus the discussion of the last few weeks, should be
>>able to get you started.  Of course, please send me any input you have,
>>and
>>feel free to send discussion to the list.
>>
>How about some output?
>
># Subroutine obj_form redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 19
># Subroutine launch redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 22
># Subroutine switch redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 32
># Subroutine AUTOLOAD redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 37
># Subroutine _primary redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 50
># Subroutine _params redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 82
># Subroutine ae_object redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 122
># Subroutine _do_obj redefined.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 143
># Application error -15263: Window must be open in icon or small icon view
>to use this command
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 76
># Can't bless non-reference value.
>File 'Boba Fett:Applications:MacPerl f:site_perl:Mac:Glue.pm'; Line 139
># END failed--cleanup aborted.

Thanks.  One problem there is mine.  Delete this:

    END {
        AEDisposeDesc(bless $obj, 'AEDesc');
    }

You will have a memory leak until you get the new version from me, maybe
later tonight.  I was reblessing before disposing, which causes real mayhem
in DESTROY.  I changed it around so that routine returns:

    bless {DESC=>$obj}, 'AEObjDesc';

And then added an AEObjDesc::DESTROY sub to that will call
AEDisposeDesc(shift()->{DESC}).  Seems to work fine, but causes changes
elsewhere in the code.

Anyway, the other problem, all those redefines, is solved by getting Paul
Schinder's fixed AutoLoader.pm from his Fixed_Library_Routines directory on
his ftp site.  Go to his web page at:

    http://www.pobox.com/~schinder/

--
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 mac-perl-request@iis.ee.ethz.ch