home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1264 < prev    next >
Encoding:
Text File  |  1992-08-17  |  1.4 KB  |  35 lines
  1. Path: sparky!uunet!olivea!apple!cambridge.apple.com!@explorer.dgp.toronto.edu:markt@dgp.toronto.edu
  2. From: markt@dgp.toronto.edu ("Mark A. Tapia")
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re:  BUG:  Second sequence doesn't scroll
  5. Message-ID: <92Aug17.192227edt.144001@explorer.dgp.toronto.edu>
  6. Date: 17 Aug 92 23:22:25 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 22
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: lynch@ils.nwu.edu
  11. Original-Cc: info-mcl@cambridge.apple.com
  12.  
  13.  
  14. Rich lynch@ils.nwu.edu writes that there is a bug in MCL2 when
  15. two distinct views within the same window both contain a subview
  16. that is a sequence-dialog-item. The scroll bars only work for the
  17. first view added and not for the second.
  18.  
  19. I noticed that the code works properly when the two tables are contained
  20. within the same view.  The following works correctly:
  21. (make-instance 'dialog
  22.   :window-title "Try the far right scroll bar."
  23.   :view-subviews
  24.   (list
  25.    (setq table1 (make-instance 'sequence-dialog-item
  26.                   :view-size #@(30 60)
  27.                   :view-position #@(4 4)
  28.                   :table-hscrollp nil
  29.                   :table-sequence '(1 2 3 4 5 6)))
  30.    (setq table2 (make-instance 'sequence-dialog-item
  31.                   :view-size #@(30 60)
  32.                   :view-position #@(50 4)
  33.                   :table-hscrollp nil
  34.                   :table-sequence '(1 2 3 4 5 6)))))
  35.