anchor.diff:  (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))
  
positive.code:   (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
  
  ||#
negative.code:   (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 
    MEDIUM WITH-GRAPHICS-STATE
    PORT-MIRROR-HEIGHT PORT-MIRROR-WIDTH TEXT-STYLE-CHARACTER-WIDTH
    FIND-INNERMOST-APPLICABLE-PRESENTATION HIGHLIGHT-PRESENTATION-1 
  