Color in MCL

[Dieter Holz <dieter@ifi.wwz.unibas.ch>]

Hi,
I want to draw some colored lines in a MCL window in :PatXor Mode, but I
get only black lines.

That is what I've tried:


(defclass color-test (window)
  ()
  (:default-initargs 
    :color-p t))

(defmethod view-draw-contents :after ((self color-test))
    (with-port (wptr self)
         (with-fore-color *red-color*
              (#_PenSize 3 3)
              (#_PenMode (ccl::mode-arg :PatXor))     ; it's black  :-(
              ; (#_PenMode (ccl::mode-arg :PatCopy)) ; it's red  :-) 
,but I need Xor-Mode   :-(
              (#_MoveTo 10 10)
              (#_Line 50 50))))

(make-instance 'color-test)

Any hints?

Dieter