home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / lisp / mcl / 1655 < prev    next >
Encoding:
Internet Message Format  |  1992-11-22  |  1.2 KB
  1. Path: sparky!uunet!stanford.edu!ames!haven.umd.edu!mimsy!waander
  2. From: waander@cs.umd.edu (Bill Andersen)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Basic color use in MCL
  5. Message-ID: <62256@mimsy.umd.edu>
  6. Date: 22 Nov 92 08:59:04 GMT
  7. Sender: news@mimsy.umd.edu
  8. Organization: U of Maryland, Dept. of Computer Science, Coll. Pk., MD 20742
  9. Lines: 30
  10.  
  11.  
  12.   I just want to draw some stuff in a view in various colors.  I have
  13. an application with a bunch of subviews inside a view inside a window.
  14. The stuff I want to draw is in the innermost subviews...
  15.  
  16.   I tried the following....
  17.  
  18. (defclass my-view (view) ())
  19.  
  20. (defmethod view-draw-contents ((self my-view))
  21.   (with-focused-view self ; maybe this is redundant
  22.     (with-fore-color *fancy-color*
  23.       (with-pstrs ((str "Hello!"))
  24.         (#_DrawString str)))))
  25.  
  26.   But the string just gets drawn in the default foreground
  27. color of the outermost window.  What's the deal?  Could someone
  28. supply some examples of how to do stuff with colors??  Maybe
  29. post it to the archive????
  30.  
  31.   Thanks...
  32.  
  33.  
  34.   ...bill
  35.  
  36. -- 
  37.    / Bill Andersen (waander@cs.umd.edu) /
  38.   / University of Maryland             /
  39.  / Department of Computer Science     /
  40. / College Park, Maryland  20742      /
  41.