home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1350 < prev    next >
Encoding:
Internet Message Format  |  1992-09-01  |  881 b 
  1. Path: sparky!uunet!gatech!darwin.sura.net!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!lynch@ils.nwu.edu
  2. From: lynch@ils.nwu.edu
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: scroll-bar-dialog-item
  5. Message-ID: <9209011902.AA14855@aristotle.ils.nwu.edu>
  6. Date: 1 Sep 92 19:02:14 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 13
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: info-mcl@cambridge.apple.com
  11.  
  12. scroll-bar-dialog-item seems to ignore its setting keyword argument.
  13.  
  14. (Unless I'm completely wrong about its purpose.)
  15.  
  16. Here is a patch.
  17.  
  18.  
  19. ;;;;HACK!!! Yes, I am actually putting a method on a "closed" object.
  20. (defmethod initialize-instance :after ((view scroll-bar-dialog-item) &key
  21. setting)
  22.   (set-scroll-bar-setting view (or setting (scroll-bar-min view)))
  23. )
  24. "TANSTAAFL" Rich lynch@ils.nwu.edu
  25.