Re: Program Frame on the Color Monitor

[Donald Kaiser <ssc-vax!dlk@beaver.cs.washington.edu>]

I use the following code:
(defmethod (:expose dw:program-frame :before) (&rest ignore)
  (let ((c-win (dw::find-program-window 'your-program-name :create-p nil)))
    (when c-win
      (send c-win :set-superior (color:find-color-screen :create-p nil))
      ... and any other code you want to execute before exposing the frame)))

Remember that this is executed everytime you expose any program frame.

Don Kaiser
Boeing Advanced Systems
uw-beaver!ssc-vax!budha!dlk
(206) 241-3415