[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: email@example.com
- Subject: with-fore-color problem?
- From: firstname.lastname@example.org (David Neves)
- Date: Wed, 31 Oct 90 17:22:56 CST
I must be doing something stupid here. I can't get with-fore-color to
display anything but black. set-fore-color works for me but not
(setq w (oneof *color-dialog*))
(ask w (with-fore-color *red-color* (paint-rect 10 10 50 50)))
prints out a black rectangle on my monitor (yes I have a color monitor).
The doc says I need to put with-fore-color within a window function.
I get the same behavior with:
(defobfun (baz *color-dialog*) nil
(with-fore-color *red-color* (paint-rect 10 10 50 50)))
(ask w (baz))
This does work:
(ask w (set-fore-color *red-color*))
(ask w (paint-rect 10 10 50 50))