Changeset 6797

Timestamp:

Jul 8, 2007, 11:13:44 PM (17 years ago)

Author:

Gary Byers

Message:

Handle :color default values without expecting pointers to persist
across sessions.

File:

• branches/ide-1.0/ccl/examples/cocoa-defaults.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/examples/cocoa-defaults.lisp

@@ -55 +55 @@
                                           :doc doc
                                           :change-hook change-hook))
-  value)
+  (if (eq type :color)
+    (apply #'color-values-to-nscolor value)
+    value))
 
 ;;; Names which contain #\* confuse Cocoa Bindings.
@@ -126 +128 @@
                                (:color (#/archivedDataWithRootObject:
                                         ns:ns-archiver
-                                        value))
+                                        (apply #'color-values-to-nscolor value)))
                                (:bool (if value #@"YES" #@"NO"))
                                (t