Changeset 12574


Ignore:
Timestamp:
Aug 12, 2009, 8:59:26 PM (10 years ago)
Author:
rme
Message:

ns-color-from-charprop: actually cache colors

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock-text.lisp

    r12572 r12574  
    341341                  gg (cgfloat (/ gg 255.0))
    342342                  bb (cgfloat (/ bb 255.0)))
    343             (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
    344                                                         rr gg bb aa))))))
     343            (setf (gethash color-string *charprop-colors*)
     344                  (#/retain (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
     345                                                                        rr gg bb aa))))))))
    345346(defun dict-to-charprops (dict)
    346347  (let ((enumerator (#/keyEnumerator dict))
Note: See TracChangeset for help on using the changeset viewer.