Changeset 12486


Ignore:
Timestamp:
Jul 31, 2009, 12:02:21 PM (10 years ago)
Author:
gb
Message:

In COLOR-VALUES-TO-NS-COLOR: #/retain the returned NSColor object.

File:
1 edited

Legend:

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

    r12461 r12486  
    123123
    124124(defun color-values-to-nscolor (red green blue &optional alpha)
    125   (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
    126                                               (cgfloat red)
    127                                               (cgfloat green)
    128                                               (cgfloat blue)
    129                                               (cgfloat (or alpha 1.0))))
     125  (#/retain (#/colorWithCalibratedRed:green:blue:alpha: ns:ns-color
     126                                                       (cgfloat red)
     127                                                       (cgfloat green)
     128                                                       (cgfloat blue)
     129                                                       (cgfloat (or alpha 1.0)))))
    130130
    131131(defun map-windows (fn)
Note: See TracChangeset for help on using the changeset viewer.