[MacPerl] Editor window tricks

[kpreid@ibm.net (Kevin Reid)]

#!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__

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.
    

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