Re: [MacPerl] simple QuickDraw questions

[Chris Nandor <pudge@pobox.com>]

At 14.30 -0500 1999.11.12, ilir topalli wrote:
>A) Does anyone know how to test if a system can use Color Quickdraw such
>as  "IF
>gColorQDAvailable THEN"
>
>I assume there is something in Mac::Gestalt, I just can't quite figure it out.

I think it would be:

use Mac::Gestalt;
$supports_color =
  ($Gestalt{gestaltQuickdrawFeatures()} & gestaltHasColor) == gestaltHasColor;

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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