ccl:grafport-write-string & :patxor

[cfry@harlequin.com (Christopher Fry)]

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