anchor.diff:  				:style :outset
   				:border-width border-width))))
   
  -; Text Area
  +;;; Text Area
   
   (defclass pixie-text-field-pane (text-field-pane) ())
   
  
positive.code:                      :initform +gray76+
                       :reader pane-background)))
  
  ; Convenience
  
  (defun draw-up-box (pane x1 y1 x2 y2 foreground)
    (let ((x2 (- x2 1)))
  
negative.code: 
  
  
  ;;; Image pane
  
  ;;; rebuild this with a pixmap repository for general re-use of
  ;;; pixmaps within a port/visual combination.
  
  ;;; This is just test/proof-of-concept code :]
  
  #+NIL
  (defclass pixie-image-pane (pixie-gadget basic-gadget) (
  