home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1199 < prev    next >
Encoding:
Text File  |  1992-08-12  |  1.6 KB  |  38 lines
  1. Path: sparky!uunet!sun-barr!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!mt@media.mit.edu
  2. From: mt@media.mit.edu (Michael Travers)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: colored dialog items
  5. Message-ID: <9208121944.AA24122@mahler.media.mit.edu>
  6. Date: 12 Aug 92 19:44:08 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 24
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: info-mcl@cambridge.apple.com
  11. Original-Cc: bug=mcl@cambridge.apple.com
  12. X-Mts: smtp
  13.  
  14. I'd like to make dialog items on a colored (well, gray) background.
  15. Unforunately the way part-colors are handled on different types of
  16. dialog items are remarkably inconsistent.  Try this:
  17.  
  18. (setq w (make-instance 'dialog :color-p t))
  19. (set-back-color w *gray-color)
  20. (dolist (c '(check-box-dialog-item static-text-dialog-item
  21.              editable-text-dialog-item sequence-dialog-item
  22.          radio-button-dialog-item)
  23.    (make-instance c :dialog-item-text "Random" :view-container w
  24.           :part-color-list '(:body ,*green-color* :frame ,*blue-color*
  25.                      :text ,*red-color*))))
  26.  
  27. Some of the items end up with a gray background, some end up with a
  28. green background, and (this is the problem) some end up with a white
  29. background.  It doesn't seem possible to get a check-box, for
  30. instance, that has any other background color besides white.
  31.  
  32. Now, Inside Mac V5 has a nice color plate of a dialog that does this
  33. right, so it's possible in theory.  It seems to require creating
  34. various resources and using special dialog-creation traps that don't
  35. fit into MCL's theory of windows.  I wonder if anybody has taken the
  36. trouble to make this work right, or has some other solution to the
  37. problem.  
  38.