specializing CELL-SELECT in sequence dialog items

[mhaines@jarthur.claremont.edu (Matthew Haines)]

I'm trying to specialize the cell-select and cell-deselect methods
of the sequence-dialog-item.  It seems to me that the following code
should print the coordinates when a cell is clicked on.  Unfortunately,
it does not.

(defclass test-sequence-item (sequence-dialog-item)
  ())

(defmethod cell-select ((item test-sequence-item) h &optional v)
  (call-next-method)
  (format t "~S,~S~%" h v))

(defvar w)

(setq w (make-instance 'window
          :view-subviews
          (list
           (make-instance 'test-sequence-item
             :table-sequence '(0 1 2 3 4 5)))))

Any pointers would be much appreciated.

--Matthew