main-screen-color-p

[wilcox@cmns.think.com]

Here's a quick way to tell if the main screen can display in color:

(defun main-screen-color-p ()
  "Is the main screen capable of displaying color?"
  ;; *color-available* just tells you if color quickdraw is in ROM
  ;; it doesn't tell you if the screen can display in color
  ;; #_getmaindevice trap gives handle to screen containing menubar
  (let ((screen (#_getmaindevice))
        (gddevtype 0))
    (#_testdeviceattribute screen gddevtype)
    ))