anchor.diff:    (SETF GADGET-MAX-VALUE) (SETF GADGET-MIN-VALUE) (SETF SCROLL-BAR-THUMB-SIZE) 
     SLOT-ACCESSOR-NAME::|CLIM-INTERNALS CLIENT slot READER| DRAW-EDGES-LINES* 
     FORMAT-CHILDREN GADGET-VALUE MAKE-MENU-BAR TABLE-PANE-NUMBER 
  -  TEXT-STYLE-CHARACTER-WIDTH
   
   ||#
positive.code: (defgeneric graft-units (graft))
  
  (defgeneric text-style-character-width (text-style medium char))
  
  (declaim (ftype (function (t t t
                               &key (:filled t) (:ink t) (:clipping-region t) (:transformation t)
  
negative.code: (defgeneric medium-line-style (medium))
  (defgeneric medium-text-style (medium))
  (defgeneric medium-default-text-style (medium))
  (defgeneric text-size (medium string &key text-style start end))
  
  (defgeneric (setf medium-foreground) (new-value medium))
  (defgeneric (setf medium-background) (new-value medium))
  