[MacPerl] Mac::QuickDraw and Mac::Windows

["Jeremy Derr" <jeremy_derr@richards.com>]

I'm trying to learn (read: teach myself through masochistic trial-and-error)
QuickDraw and windowing via Macperl and I've come up a little dry ...

what works, kind of (borrowed from code i found i-don't-remember-where):

BEGIN {
  $ScrnRect = GetMainDevice()->gdRect;
  $ScrnRect->top($ScrnRect->top + 20);
}

my $GWindow = new MacColorWindow(
    $ScrnRect,
    'Ball',
    1, plainDBox, 1,
);

Problem being that this code (with some cryptic looking declarations not
quoted) results in a window that takes over my whole screen.

According to the perldoc found in Window.pm, I *should* be able to say
something to the effect of:

my $GWindow = new MacColorWindow(128);

and that *should* open a new window according to resource WIND 128 in the
script's resource fork. right?

:/ It doesn't seem to, at least on this end.

Any ideas out there?
Thanks
Jeremy

-- PGP Signed/Encrypted Email Preferred : 0xA0CE4746 --
Jeremy Derr             derr@ausa.net / derr@holdit.com
"If there is no God, who pops up
 the next kleenex in the box?"  -- Art Hoppe

http://www.ausaweb.com/~derr/


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