really quick question about changing text color

• To: curt@eraserhead.jpl.nasa.gov
• Subject: really quick question about changing text color
• From: Bill York <york%oakland-hills@lucid.com>
• Date: Fri, 4 Dec 92 15:13:51 PST
• Cc: clim@BBN.COM
• In-Reply-To: Curt Eggemeyer's message of Tue, 24 Nov 92 09:51:10 PST <9211241751.AA01009@eraserhead.Jpl.Nasa.Gov>
• Reply-To: York@lucid.com

   Date: Tue, 24 Nov 92 09:51:10 PST
   From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>

   If you wish to output regular text with format on one of your
   application panes, do you just change the +foreground+ value to a color
   to change that text's color ala something like:

   (let ((old-color +foreground+))
     (unwind-protect (progn (setf +foreground+ +red+)
			    (format pane-stream "hi"))
	   (setf +foreground+ old-color)))

   Or is there a specific foreground attribute for each pane within your
   application pane that I should set?

[I don't remember seeing an answer to this go by]

You can use something like:

(with-drawing-options (win :ink +red+)
  (format win "foo")
  (force-output win))


0,,

• really quick question about changing text color
• From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>

• Prev: DRAW-CIRCLE* bug inside WITH-ROTATION
• Next: Interrupting a process with a pointer press
• Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
• Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)