anchor.diff:          (lem-pane-resize-callback lem-pane)))))
   
   (defun destroy-window-pane (window-pane)
  -  (declare (ignore window-pane)))
  +  (gp:destroy-pixmap-port (window-pane-pixmap window-pane)))
   
   (defun change-font (window-pane family size)
     (let ((normal-font (gp:find-best-font
  
positive.code:    (drawing-queue
      :initform nil
      :accessor window-pane-drawing-queue)
     (window
      :initform nil
      :initarg :window
  
negative.code:              (char-height (+ (abs top) bottom)))
          (when reverse (rotatef foreground background))
          (with-drawing (window-pane)
            (gp:draw-rectangle window-pane
                               pixel-x
                               pixel-y
                               (* (lem:string-width string) char-width)
                               char-height
                               :foreground background
                               :filled t)
            (loop :with x1 := pixel-x :and y1 := (+ pixel-y char-height (- bottom))
                  :for c :across string
                  :do (gp:draw-character window-pane c x1 y1
                                         :font font
                                         :foreground foreground
                                         :background background
                                         :block t)
                      (incf x1 (* char-width (if (lem:wide-char-p c) 2 1)))
                  :finally (when underline
                             (gp:draw-line window-pane
                                           pixel-x
                                           (+ pixel-y char-height -4)
                                           x1
                                           (+ pixel-y char-height -4)
                                           :foreground foreground))))))))
  
  (defun %draw-string (window-pane string x y foreground background underline bold reverse)
    (update-font-if-required window-pane)
  