Changeset 12574

Timestamp:

Aug 12, 2009, 8:59:26 PM (11 years ago)

Author:

rme

Message:

ns-color-from-charprop: actually cache colors

File:

• trunk/source/cocoa-ide/hemlock-text.lisp (modified) (1 diff)

trunk/source/cocoa-ide/hemlock-text.lisp

@@ -341 +341 @@
                   gg (cgfloat (/ gg 255.0))
                   bb (cgfloat (/ bb 255.0)))
-            (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
-                                                        rr gg bb aa))))))
+            (setf (gethash color-string *charprop-colors*)
+                  (#/retain (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
+                                                                        rr gg bb aa))))))))
 (defun dict-to-charprops (dict)
   (let ((enumerator (#/keyEnumerator dict))