Re: [MacPerl] if (contains_bug('Mac::Windows')) {

[ajf@afco.demon.co.uk (Alan Fry)]

Kevin Reid writes Tue, 10 Nov 1998 16:38:30 -0500:

>This program will leave a window up on the screen after it ends, even
>though MacWindow::DESTROY calls MacWindow::dispose (and
>MacWindow::DESTROY is getting called):

True --

>#!perl -w
>
>use Mac::Windows;
>
>$w = new MacWindow Rect->new(50, 50, 90, 90), '', 1, 0, 0;
>
>__END__

-- but you need also to 'use Mac::Events' to dispose of the window.

I am not sure why, because 'package MacWindow' already contains a 'use
Mac::Events' in its BEGIN{} block, but it is necessary nevertheless.

Alan Fry



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch