[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Editor window tricks



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