I've worked out how to do this, with luck it works for what you're trying to do.<br>
<br>
Here is an example:<br>
<br>
<br>
<br>
(defun color-text-field (ink)<br>
  (let ((pane (find-pane-named *application-frame* 'text-field)))<br>
    ;; The Goatee screen area keeps track of its own foreground color.<br>
    (setf (goatee::foreground-ink (climi::area pane)) ink)<br>
    ;; The cursor is still drawn in foreground ink of the sheet-medium.<br>
    (setf (medium-foreground pane) ink)<br>
    ;; Now force repaint of the sheet<br>
    (repaint-sheet pane (sheet-region pane))))<br>
    <br>
<br>
(defun red-text-field (gadget)<br>
  (color-text-field +red+))<br>
<br>
(defun green-text-field (gadget)<br>
  (color-text-field +green+))<br>
<br>
(define-application-frame colored-text-editing ()<br>
  ()<br>
  (:panes<br>
   (text-field   :text-field)<br>
   (red-button   :push-button :activate-callback 'red-text-field   :label "Redify")<br>
   (green-button :push-button :activate-callback 'green-text-field :label "Greenicate"))<br>
  (:layouts<br>
   (default<br>
       (vertically ()<br>
         text-field<br>
         (horizontally ()<br>
           red-button<br>
           green-button)))))<br>
<br>
<br>
<br>
<br><br><div><span class="gmail_quote">On 4/19/05, <b class="gmail_sendername">Paolo Amoroso</b> <<a href="mailto:amoroso@mclink.it">amoroso@mclink.it</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
How can I change the color of the text displayed in a text field?<br>Does the CLIM specification allow this?<br><br>Paolo<br>--<br>Lisp Propulsion Laboratory log - <a href="http://www.paoloamoroso.it/log">http://www.paoloamoroso.it/log
</a><br>_______________________________________________<br>mcclim-devel mailing list<br><a href="mailto:mcclim-devel@common-lisp.net">mcclim-devel@common-lisp.net</a><br><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel">
http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel</a><br></blockquote></div><br>