Why do *sequence-dialog-item*'s blink when changing them?

[Luke Hohmann <hohmann@csmil.umich.edu>]

The blink is rather annoying.  Here is some code that exhibits this
behavior:

(defobject *nameobj*)
(defobfun (exist *nameobj*) (init-list)
  (have 'name (getf init-list :name "sample"))
  (usual-exist
   (init-list-default init-list)))


(defun print-nameobj (a-nameobj a-stream)
  (declare (object-variable name))
  (format a-stream "~a" (ask a-nameobj name)))


(setf testd
      (oneof *dialog*
             :window-type :document :window-title "sample dialog"
             :window-position #@(364 127)
             :window-size #@(300 150)
             :dialog-items
             (list (oneof *sequence-dialog-item*
                          :dialog-item-position #@(17 18)
                          :dialog-item-size #@(156 48)
                          :dialog-item-text "Sample"
                          :dialog-item-nick-name 'nameobj-list
                          :cell-size #@(200 16)
                          :table-hscrollp nil
                          :table-print-function 'print-nameobj
                          :table-vscrollp t
                          :table-sequence 
                          (list
                           (oneof *nameobj* :name "randy")
                           (oneof *nameobj* :name "brad")
                           (oneof *nameobj* :name "luke"))))))

;  When executed, this code will make the dialog-item "blink"
;  is there any way to prevent this?
;
(ask testd
  (ask-named-item 'nameobj-list 
    (set-table-sequence
     (list (oneof *nameobj* :name "sue")
           (oneof *nameobj* :name "iris")
           (oneof *nameobj* :name "kathy")))))