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

Re: Program Frame on the Color Monitor

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
(206) 241-3415