home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / lisp / mcl / 1670 < prev    next >
Encoding:
Internet Message Format  |  1992-11-23  |  1.3 KB
  1. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!straz@cambridge.apple.com
  2. From: straz@cambridge.apple.com (Steve Strassmann)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Basic color use in MCL
  5. Message-ID: <9211231650.AA28371@cambridge.apple.com>
  6. Date: 23 Nov 92 16:51:37 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 23
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11. >From: waander@cs.umd.edu (Bill Andersen)
  12. >Newsgroups: comp.lang.lisp.mcl
  13. >Subject: Basic color use in MCL
  14. >Date: 22 Nov 92 08:59:04 GMT
  15. >Organization: U of Maryland, Dept. of Computer Science, Coll. Pk., MD 20742
  16. >
  17. >  But the string just gets drawn in the default foreground
  18. >color of the outermost window.  What's the deal?  Could someone
  19. >supply some examples of how to do stuff with colors??  Maybe
  20. >post it to the archive????
  21.  
  22. One possibility is that you forgot to specify :COLOR-P T when you created
  23. the window. (I know, I know, I get burned by this myself a lot too. We'll
  24. change the default for :COLOR-P from nil to t in a future release). 
  25.  
  26. You can make sure this doesn't happen by adding this to your window's defclass:
  27.  
  28. (defclass my-window (window)
  29.   (... other slots ...)
  30.   (:default-initargs :color-p t))
  31.  
  32. I've written a pretty simple example file, available in our user library
  33. as cambridge.apple.com:/pub/MCL2/contrib/window-example.lisp.
  34.