Andy Hefner ahefner@gmail.com writes:
Try repaint-sheet rather than redisplay-frame-pane.
I use code like this:
(let ((gadget (find-pane-named *application-frame* 'my-text-field))) (setf (medium-foreground gadget) +blue+) (repaint-sheet gadget (sheet-region gadget)) (redisplay-frame-pane *application-frame* gadget :force-p t))
But I still get the default black color. The closest thing to changing color I have been able to get, playing with medium-ink/foreground and sheet-medium, is a blue text cursor.
By the way, I call this code from the text field's activation callback: is this an issue?
Poolo