anchor.diff:     lem-pane
      nil
      (lambda ()
  -     (dolist (fn (nreverse (lem-pane-queue lem-pane)))
  -       (funcall fn (lem-pane-pixmap lem-pane)))
  -     (setf (lem-pane-queue lem-pane) nil)
  -     (gp:copy-pixels lem-pane
  -                     (lem-pane-pixmap lem-pane)
  +     (gp:copy-pixels lem-pane (lem-pane-pixmap lem-pane)
                        0 0
                        (capi:simple-pane-visible-width lem-pane)
                        (capi:simple-pane-visible-height 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: (defun resize-callback (lem-pane &rest args)
    (declare (ignore args))
    (lem:send-event :resize)
    (reinitialize-pixmap lem-pane))
  
  (defun reinitialize-pixmap (lem-pane)
  