anchor.diff:  				  :ink (gadget-normal-color pane)
   				  :filled t)))
   	  (draw-label pane (gadget-label pane) (round w 2) (round h 2)))))))
  +
   
   
   ;;;;
  
positive.code:   (let ((call (gensym)))
      `(let ((,call (funcall (symbol-function ,callback) ,pane)))
         (when ,call
  	 (funcall ,call ,pane)))))
  
  (defmethod scroll-to-top-callback ((pane scroll-bar) client gadget-id)
    (declare (ignore client gadget-id))
  
negative.code: ;; gadget sub-classes
  ;;
  
  (defclass basic-gadget (
                          permanent-medium-sheet-output-mixin
                          sheet-parent-mixin 
                          sheet-leaf-mixin
                          mirrored-sheet-mixin
                          gadget-color-mixin
                          gadget
                          ;;basic-pane
                          )
    ;; Half-baked attempt to be compatible with Lispworks.
    ())
  
  