Changeset 12491


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

Work around missing Cocotron functionality.

File:
1 edited

Legend:

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

    r7804 r12491  
    104104               (set name (lisp-string-from-nsstring nsstring)))))
    105105          ((:color :font)
     106           #+cocotron
     107           (let* ((value (cocoa-default-value d)))
     108             (set name
     109                  (ecase type
     110                    (:color (apply #'color-values-to-nscolor value))
     111                    (:font (funcall value)))))
     112           #-cocotron
    106113           (let* ((data (#/dataForKey: domain key)))
    107114             (unless (%null-ptr-p data)
     
    119126      (let* ((value (cocoa-default-value d)))
    120127        (#/setObject:forKey: dict
    121                              (case (cocoa-default-type d)
    122                                (:color (#/archivedDataWithRootObject:
     128                             (case (cocoa-default-type d)                               
     129                               (:color #-cocotron
     130                                       (#/archivedDataWithRootObject:
    123131                                        ns:ns-archiver
    124                                         (apply #'color-values-to-nscolor value)))
    125                                (:font (#/archivedDataWithRootObject:
    126                                        ns:ns-archiver
    127                                        (funcall value)))
     132                                        (apply #'color-values-to-nscolor value))
     133                                       #+cocotron
     134                                       (apply #'color-values-to-nscolor value)
     135                                       )
     136                               (:font #-cocotron
     137                                      (#/archivedDataWithRootObject:
     138                                       ns:ns-archiver
     139                                       (funcall value))
     140                                      #+cocotron
     141                                      (funcall value))
    128142                               (:bool (if value #@"YES" #@"NO"))
    129143                               (t
Note: See TracChangeset for help on using the changeset viewer.