anchor.diff:  (defun resize-callback (lem-pane &rest args)
     (declare (ignore args))
     (lem:send-event :resize)
  -  (clear lem-pane)
     (reinitialize-pixmap lem-pane))
   
   (defun reinitialize-pixmap (lem-pane)
  
positive.code:              (y (* y char-height)))
          (let ((x1 x)
                (y1 (+ y char-height (- bottom))))
            (push (lambda (lem-pane)
                    (gp:draw-rectangle lem-pane x y
                                       (* char-width (lem:string-width string))
                                       char-height
                                       :foreground background
                                       :filled t)
                    (loop :for c :across string
                          :do
                          (gp:draw-character lem-pane c x1 y1
                                                 :font font
                                                 :foreground foreground
                                                 :background background
                                                 :block t)
                          (incf x1 (* char-width (if (lem:wide-char-p c) 2 1)))))
                  (lem-pane-queue lem-pane)))
          (when underline
            (push (lambda (lem-pane)
                    (gp:draw-line lem-pane
                                  x
                                  (+ y char-height -4)
                                  (+ x (* char-width (length string)))
                                  (+ y char-height -4)
                                  :foreground foreground))
                  (lem-pane-queue lem-pane)))))))
  
  (defun draw-text (lem-pane string x y attribute)
    (capi:apply-in-pane-process-wait-single
  
negative.code:    (lambda ()
       (multiple-value-bind (char-width char-height)
           (lem-pane-char-size lem-pane)
         (let ((x (* x char-width))
               (y (* y char-height))
               (w (* width char-width))
               (h (* height char-height)))
           (if color
               (gp:draw-rectangle (lem-pane-pixmap lem-pane)
                                  x y w h
                                  :filled t
                                  :foreground color)
               (gp:clear-rectangle (lem-pane-pixmap lem-pane)
                                   x y w h)))))))
  
  (defun clear (lem-pane)
    (capi:apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
       (gp:clear-graphics-port (lem-pane-pixmap lem-pane)))))
  
  (defun change-foreground (lem-pane color)
    (alexandria:when-let ((color (convert-color color nil)))
  