Adding string colorization to the IDE

I think I'm on the right track, but for some reason colorization of a
quoted string, e.g. "this is a string" is not working.

Here are the modifications I have make to sys/edit-window.lisp ...

; LJC Added 10/24/2003
(defconstant dark-purple (win:RGB 126 0 176))

; LJC Added 10/24/2003
(defparameter string-format (make-text-format :color dark-purple))

; LJC Added 10/24/2003
(defun format-string (ITextRange start end)
    (format-text ITextRange start end 
        :bold (text-format-bold string-format)
        :italic (text-format-italic string-format)
        :color (text-format-color string-format)))

And in (defun colorize-buffer ...
; LJC Added 10/24/2003
((eq type ':string) (format-string ITextRange start end))


What have I forgotten ?


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/