>#!perl -w > ># Run this with a MacPerl editor window in front. > >use Mac::QuickDraw; >use Mac::Windows; > >SetPort FrontWindow; >ForeColor(whiteColor); >BackColor(blackColor); >InvalRgn GetPort->visRgn; > >__END__ This is cool. Try replacing whiteColor with a number. Cooler still. Thanks for pointing this out, Kevin! -Chilton ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org