anchor.diff:      :accessor      keymap
       :documentation
       "Keymap containing the key bindings to be used by run-event-loop instead
  -    of the object's own bindings. If using an instance-local binding isn't 
  +    of the object's own bindings. If using an instance-local binding isn't
       sufficient, we can create an external keymap and reference it in the object.")
   
      (current-keymap
  
positive.code:     ;; only for form windows
      (when (eq (type-of win) 'form-window)
        (setf border-width (if borderp 1 0))
        
        ;; TODO: this isnt form specific, this should be part of window initialization
        ;; TODO 200612 see window and sub-window init
        (setf winptr (ncurses:newwin height width y x))
  
negative.code:     :initform      nil
      :type          boolean
      :documentation "Draw (t) or don't draw (nil, default) a shadow behind the panel.")
  
     (shadow-win
      :initform      nil
      :type          (or null window)
  