anchor.diff:  
   
   
  -; 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 :]
  +;;; 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) (
  
positive.code:                 (draw-line* pane x1 y2 x2 y2 :ink +white+)
                  (draw-line* pane x2 y1 x2 y2 :ink +white+)))))))))
  
  ; Scrollbar
  
  ; We derive from the slider, since the slider is the same, only
  ; less so.
  ;;; XXX Probably should derive from scroll-bar too.
  
  (defconstant +pixie-scroll-bar-pane-thumb-size+  5000.0)
  
negative.code:         (when armed
            (disarm-gadget pane)))))
  
  ;;; Slider (refactor into 'thumbed' gadget?)
  
  (defconstant +pixie-slider-pane-thumb-size+  5000.0)
  (defconstant +pixie-slider-thumb-half-height+ 17)
  