anchor.diff:  				:style :outset
   				:border-width border-width))))
   
  -; Text Area
  +;;; Text Area
   
   (defclass pixie-text-field-pane (text-field-pane) ())
   
  
positive.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) (
  
negative.code:                        :height     (* 4 *3d-border-thickness*)
                         :max-height (* 4 *3d-border-thickness*)))
  
  ;;; factor out the dragging code into a mixin
  (defmethod handle-event ((pane pixie-push-button-pane) (event pointer-enter-event))
    (with-slots (armed dragging) pane
      (cond
  