Changeset 7558


Ignore:
Timestamp:
Oct 31, 2007, 2:39:02 AM (12 years ago)
Author:
rme
Message:

Add :font type.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-defaults.lisp

    r6978 r7558  
    110110             (unless (%null-ptr-p nsstring)
    111111               (set name (lisp-string-from-nsstring nsstring)))))
    112           (:color
     112          ((:color :font)
    113113           (let* ((data (#/dataForKey: domain key)))
    114114             (unless (%null-ptr-p data)
     
    127127        (#/setObject:forKey: dict
    128128                             (case (cocoa-default-type d)
     129                               (:font (#/archivedDataWithRootObject:
     130                                       ns:ns-archiver
     131                                       value))
    129132                               (:color (#/archivedDataWithRootObject:
    130133                                        ns:ns-archiver
Note: See TracChangeset for help on using the changeset viewer.