Changeset 13448


Ignore:
Timestamp:
Feb 19, 2010, 4:48:11 PM (10 years ago)
Author:
palter
Message:

Switch to NSKeyedArchiver/NSKeyedUnarchiver and enable
encoding/decoding of colors and fonts under Cocotron

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

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

    r12491 r13448  
    113113           (let* ((data (#/dataForKey: domain key)))
    114114             (unless (%null-ptr-p data)
    115                (set name (#/retain (#/unarchiveObjectWithData: ns:ns-unarchiver data)))))))
     115               (set name (#/retain (#/unarchiveObjectWithData: ns:ns-keyed-unarchiver data)))))))
    116116        (when hook (funcall hook old-value (symbol-value name)))))))
    117117
     
    127127        (#/setObject:forKey: dict
    128128                             (case (cocoa-default-type d)                               
    129                                (:color #-cocotron
    130                                        (#/archivedDataWithRootObject:
    131                                         ns:ns-archiver
    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))
     129                               (:color (#/archivedDataWithRootObject:
     130                                        ns:ns-keyed-archiver
     131                                        (apply #'color-values-to-nscolor value)))
     132                               (:font (#/archivedDataWithRootObject:
     133                                       ns:ns-keyed-archiver
     134                                       (funcall value)))
    142135                               (:bool (if value #@"YES" #@"NO"))
    143136                               (t
  • trunk/source/cocoa-ide/preferences.lisp

    r12188 r13448  
    5151;;; Produce description of NSFont object, e.g., "Monaco 10"
    5252(objc:defmethod #/transformedValue: ((self font-to-name-transformer) value)
    53   (let* ((font (#/unarchiveObjectWithData: ns:ns-unarchiver value))
     53  (let* ((font (#/unarchiveObjectWithData: ns:ns-keyed-unarchiver value))
    5454         (name (#/displayName font))
    5555         (size (float (#/pointSize font) 0.0d0)))
     
    158158       (setq font (#/convertFont: font-manager *listener-input-font*))
    159159       (unless (%null-ptr-p font)
    160          (setq data (#/archivedDataWithRootObject: ns:ns-archiver font))
     160         (setq data (#/archivedDataWithRootObject: ns:ns-keyed-archiver font))
    161161         (#/setObject:forKey: defaults data #@"listenerInputFont")))
    162162      (:listener-output
    163163       (setq font (#/convertFont: font-manager *listener-output-font*))
    164164       (unless (%null-ptr-p font)
    165          (setq data (#/archivedDataWithRootObject: ns:ns-archiver font))
     165         (setq data (#/archivedDataWithRootObject: ns:ns-keyed-archiver font))
    166166         (#/setObject:forKey: defaults data #@"listenerOutputFont")))
    167167      (:editor
    168168       (setq font (#/convertFont: font-manager *editor-font*))
    169169       (unless (%null-ptr-p font)
    170          (setq data (#/archivedDataWithRootObject: ns:ns-archiver font))
     170         (setq data (#/archivedDataWithRootObject: ns:ns-keyed-archiver font))
    171171         (#/setObject:forKey: defaults data #@"editorFont"))))))
    172172
Note: See TracChangeset for help on using the changeset viewer.