Re: BUG: Second sequence doesn't scroll

["Mark A. Tapia" <markt@dgp.toronto.edu>]

Rich lynch@ils.nwu.edu writes that there is a bug in MCL2 when
two distinct views within the same window both contain a subview
that is a sequence-dialog-item. The scroll bars only work for the
first view added and not for the second.

I noticed that the code works properly when the two tables are contained
within the same view.  The following works correctly:
(make-instance 'dialog
  :window-title "Try the far right scroll bar."
  :view-subviews
  (list
   (setq table1 (make-instance 'sequence-dialog-item
                  :view-size #@(30 60)
                  :view-position #@(4 4)
                  :table-hscrollp nil
                  :table-sequence '(1 2 3 4 5 6)))
   (setq table2 (make-instance 'sequence-dialog-item
                  :view-size #@(30 60)
                  :view-position #@(50 4)
                  :table-hscrollp nil
                  :table-sequence '(1 2 3 4 5 6)))))