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

ccl:grafport-write-string & :patxor



I want to draw a string in a window, then erase it,
leaving the window looking like it did before the draw.
The below code attempts to do that and suceeds in
drawing the string "text", but it is not erased.
What am I doing wrong?


(defparameter *win* (make-instance 'window))
(with-focused-view *win*
           (ccl::set-pen-mode *win* :patxor)
           (move-to *win* 50 50)
           (ccl:grafport-write-string  "test" 0 4)
           (sleep 2)
           (move-to *win* 50 50)
           (ccl:grafport-write-string  "test" 0 4)
           )


CFry