anchor.diff:              (defclass ,class-name (gadget-view)
                 ((gadget-name :allocation :class :reader view-gadget-name
                               :initform ',name)
  -               (gadget-initargs :accessor view-gadget-initargs)
  -               ,@new-slots))
  +               (gadget-initargs :accessor view-gadget-initargs)))
               (defmethod initialize-instance :after
                   ((instance ,class-name)
                    &rest initargs &key ,@parameters)
  
positive.code: 
  ;;; text-field
  
  (define-default-presentation-method accept-present-default
      (type stream (view text-field-view) default default-supplied-p
       present-p query-identifier)
    (when-let ((width (width view)))
      (let ((cx (stream-cursor-position stream)))
        (letf (((stream-text-margin stream) (+ cx width)))
          (funcall-presentation-generic-function accept-present-default
                                                 type
                                                 stream
                                                 +textual-dialog-view+
                                                 default default-supplied-p
                                                 present-p
                                                 query-identifier)))))
  
  ;;; text-editor-view
  
  
negative.code:   (define-gadget-view radio-box)
    (define-gadget-view check-box)
    (define-gadget-view slider)
    (define-gadget-view text-field)
    (define-gadget-view text-editor)
    (define-gadget-view list-pane)
    (define-gadget-view option-pane))
  