"Paul Werkowski" <pw@snoopy.mv.com> writes:

| How can I change the color of the text displayed in a text field? | Does the CLIM specification allow this?

(make-pane 'text-field :foreground +red+ ....)

Thanks, but I forgot to mention that I would like to dynamically change the text color at runtime. Andy suggested the use of pane-foreground. But since there is no setf method for pane-foreground, I tried with medium-ink/medium-foreground, and a total redisplay with redisplay-frame-pane called on the gadget and :force-p t. This does not work. Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

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 -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

Andy Hefner <ahefner@gmail.com> writes:

I've worked out how to do this, with luck it works for what you're trying to do.

Here is an example:

(defun color-text-field (ink) [...]

It works fine, thank you very much. Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log