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: (in-package :lem-capi.lem-pane)
  
  (defvar *default-font-family* #+win32 "Consolas" #-win32 "DejaVu Sans Mono")
  (defvar *default-font-size* 11)
  
  (defvar *default-font*
    (gp:make-font-description :size *default-font-size*
  
negative.code:              (y (* y char-height)))
          (let ((x1 x)
                (y1 (+ y char-height (- bottom))))
            (let ((w (* char-width (lem:string-width string)))
                  (h char-height))
              (gp:draw-rectangle (lem-pane-pixmap lem-pane) x y w h
                                 :foreground background
                                 :filled t))
            (loop :for c :across string
                  :do (gp:draw-character (lem-pane-pixmap 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)))))
          (when underline
            (gp:draw-line (lem-pane-pixmap lem-pane)
                          x
                          (+ y char-height -4)
                          (+ x (* char-width (length string)))
                          (+ y char-height -4)
                          :foreground foreground))))))
  
  (defun draw-text (lem-pane string x y attribute)
    (capi:apply-in-pane-process-wait-single
  