home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1250 < prev    next >
Encoding:
Internet Message Format  |  1992-08-17  |  1.3 KB
  1. Path: sparky!uunet!olivea!apple!apple!cambridge.apple.com!lynch@ils.nwu.edu
  2. From: lynch@ils.nwu.edu
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: BUG:  Second sequence doesn't scroll
  5. Message-ID: <9208171952.AA01428@aristotle.ils.nwu.edu>
  6. Date: 17 Aug 92 19:52:55 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 37
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: info-mcl@cambridge.apple.com
  11.  
  12. Anybody remember a bug where the second of two sequence-dialog-items in
  13. different sub-views of a window wouldn't scroll?
  14.  
  15. This is in 2.0 final, but maybe I missed a patch...
  16.  
  17. Demo of bug:
  18.  
  19. (make-instance 'dialog
  20.   :window-title "Try the far right scroll bar."
  21.   :view-subviews
  22.   (list
  23.     (make-instance 'view
  24.       :view-position #@(4 4)
  25.       :view-subviews
  26.       (list (make-instance 'sequence-dialog-item 
  27.               :view-size #@(30 60)
  28.               :table-hscrollp nil
  29.               :table-sequence '(1 2 3 4 5 6))))
  30.     (make-instance 'view
  31.       :view-position #@(50 4)
  32.       :view-subviews
  33.       (list (make-instance 'sequence-dialog-item
  34.               :view-size #@(30 60)
  35.               :table-hscrollp nil
  36.               :table-sequence '(1 2 3 4 5 6))))))
  37.  
  38. #|
  39. 'Case it's relevant:
  40.   Quadra 700,
  41.   System 7.0.1  ,
  42.   with Tune-Up ^(or is that what that option-8 dot means?)
  43.   Inits:
  44.     MacTCP
  45.     SuperClock
  46.     Remote
  47. |#
  48. "TANSTAAFL" Rich lynch@ils.nwu.edu
  49.