home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / lisp / mcl / 1360 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  1.4 KB
  1. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!apple!apple!cambridge.apple.com!lynch@ils.nwu.edu
  2. From: lynch@ils.nwu.edu
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: ccl::draw-outline
  5. Message-ID: <9209091803.AA09452@aristotle.ils.nwu.edu>
  6. Date: 9 Sep 92 18:03:48 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 34
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: info-mcl@cambridge.apple.com
  11.  
  12. >In my application, I turned the outline of an editable-text-dialog-item on and off according  
  13. >to some event.
  14. >
  15. >In the beta version, (setf (slot-value x 'ccl::draw-outline) nil) worked well.  
  16. >
  17. >(x is an instance of the editable-text-dialog-item).  
  18. >
  19. >
  20. >But this is not working in MCL2.0.  I also tried 
  21. >
  22. >
  23. >(setf (slot-value x 'ccl::draw-outline) nil) 
  24. >
  25. >(view-focus-and-draw-contents x)
  26. >
  27. >and though x would redraw itself.  This does not work either.
  28. >
  29. >The opposite operation, i.e., to turn the outline on,  works fine by the following:
  30. >
  31. >(setf (slot-value x 'ccl::draw-outline) t) 
  32. >
  33. >(view-focus-and-draw-contents x).
  34. >
  35. >Any suggestion?  Thanks
  36. >
  37. >Sheldon
  38.  
  39. Since the outline is not within the bounds of (view-corners ) [ugh!] you
  40. will probably need to erase a suitable rectangle after setting the slot
  41. value and before calling view-focus-and-draw-contents.
  42.  
  43. If this causes too much flash, you can use a region which is the difference
  44. of a suitable rectangle and view-corners...
  45. "TANSTAAFL" Rich lynch@ils.nwu.edu
  46.