IDE string colorization; finally

After downloading the patches and recompiling the CCL image, suddenly
all strings in my IDE were rendered in purple. Took me a couple of
seconds before the penny dropped and I realized that my additions to
edit-window.lisp had taken effect.

So, if anyone wishes to add string colorization to their IDE, my
modifications are below...

-Luke

...Export the following additions strings...

"DARK-PURPLE"
"STRING-FORMAT"

... Just after 
(defconstant blue (win:RGB 0 0 255))

add the following...

(defconstant dark-purple (win:RGB 126 0 176))

... Just after
(defparameter lisp-symbol-format (make-text-format :bold t))

add the following...

(defparameter string-format (make-text-format :color dark-purple
:bold t))

.. Just after 
(defun format-commenting (ITextRange start end)

add the following...

(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)))

... In (colorize-buffer) , after 

((eq type ':comment) (format-commenting ITextRange start end))

add the following...

((eq type ':string) (format-string ITextRange start end))


------------------------ 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/