anchor.diff:                                    :collect `((,char :press :meta :control :shift) key-press)))
      :resize-callback 'resize-callback))
   
  +(defun capi.apply-in-pane-process-wait-single (pane timeout function &rest args)
  +  (let ((mb (mp:make-mailbox :name "Apply-In-Pane-Process-Wait-Single")))
  +    (apply (lambda (&rest args)
  +             (declare (dynamic-extent args))
  +             (mp:mailbox-send
  +              mb 
  +              (apply #'capi:apply-in-pane-process-if-alive
  +                     pane
  +                     function
  +                     args)))
  +           args)
  +    (multiple-value-bind (result status)
  +                         (mp:mailbox-read mb 
  +                                          "Waiting for apply-in-pane-process"
  +                                          timeout)
  +      (values result
  +              (or status :timeout)))))
  +
  +(declaim (inline apply-in-pane-process-wait-single))
  +(defun apply-in-pane-process-wait-single 
  +       (pane timeout function &rest args)
  +  (apply #+lispworks7.1 #'capi:apply-in-pane-process-wait-single
  +         #+lispworks7.0 #'capi.apply-in-pane-process-wait-single
  +         pane 
  +         timeout
  +         function 
  +         args))
  +
   (defmethod capi:interface-keys-style ((lem-pane lem-pane)) :emacs)
   
   (defun resize-callback (lem-pane &rest args)
  
positive.code:     (mp:schedule-timer-relative (mp:make-timer 'resize-if-required lem-pane) 0.1)))
  
  (defun resize-if-required (lem-pane)
    (capi:apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
  
negative.code:                       (capi:simple-pane-background lem-pane))))))
  
  (defun draw-rectangle (lem-pane x y width height &optional color)
    (apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
  