anchor.diff:  
   ;;; 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)))))
  +(define-presentation-method accept-present-default
  +    ((type string) stream (view text-field-view) default default-supplied-p
  +                   present-p query-identifier)
  +  (unless default-supplied-p
  +    (setf default ""))
  +  (let* ((width (or (getf (view-gadget-initargs view) :width)
  +                    (stream-effective-right-margin stream)))
  +         (gadget (make-gadget-pane-from-view view stream
  +                                             :width width
  +                                             :value default
  +                                             :value-changed-callback
  +                                             (%standard-value-changed-callback query-identifier))))
  +    (updating-output (stream
  +                      :cache-value t    ; don't redisplay
  +                      :unique-id query-identifier
  +                      :record-type 'accepting-values-record)
  +      (with-output-as-presentation (stream query-identifier 'selectable-query
  +                                           :single-box t)
  +        (surrounding-output-with-border (stream :shape :rounded
  +                                                :radius 3 :background clim:+background-ink+
  +                                                :foreground clim:+foreground-ink+
  +                                                :move-cursor t)
  +          (with-output-as-gadget (stream)
  +            gadget))))))
   
   ;;; text-editor-view
   
  
positive.code:             (defclass ,class-name (gadget-view)
                ((gadget-name :allocation :class :reader view-gadget-name
                              :initform ',name)
                 (gadget-initargs :accessor view-gadget-initargs)
                 ,@new-slots))
              (defmethod initialize-instance :after
                  ((instance ,class-name)
                   &rest initargs &key ,@parameters)
  
negative.code: ;;; Views described in the Franz User manual (CLIM 2.2). Sec. 8.6.13
  
  (macrolet
      ((define-gadget-view (name)
         ;; The gadget class stores the information required to make an
         ;; instances of its corresponding gadget class: the name of the
         ;; gadget class and a list of initargs. The INITIALIZE-INSTANCE
  