anchor.diff:                                           :foreground foreground))))))))
   
   (defun draw-text (lem-pane string x y attribute)
  -  (capi:apply-in-pane-process-wait-single
  +  (apply-in-pane-process-wait-single
      lem-pane
      nil
      (lambda ()
  
positive.code:                       (capi:simple-pane-background lem-pane))))))
  
  (defun draw-rectangle (lem-pane x y width height &optional color)
    (capi:apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
  
negative.code:           (multiple-value-list (gp:get-string-extent lem-pane "a" normal-font)))))
  
  (defun reinitialize-pixmap (lem-pane)
    (apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda (lem-pane)
  