Changeset 6733

Timestamp:

Jun 15, 2007, 4:26:36 AM (17 years ago)

Author:

Gary Byers

Message:

Add cocoa-defaults-initial-values.

File:

• branches/ide-1.0/ccl/examples/cocoa-defaults.lisp (modified) (1 diff)

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

@@ -133 +133 @@
                (unless (%null-ptr-p newval)
                  (set name (#/retain (#/unarchiveObjectWithData: ns:ns-unarchiver newval))))))))
+
+;;; Return an NSDictionary describing the "default" values of the defaults.
+(defun cocoa-defaults-initial-values ()
+  (let* ((defaults (cocoa-defaults))
+         (dict (make-instance 'ns:ns-mutable-dictionary
+                              :with-capacity (length defaults))))
+    (dolist (d defaults dict)
+      (#/setObject:forKey: dict
+                           (case (cocoa-default-type d)
+                             (:color (#/archivedDataWithRootObject:
+                                      ns:ns-archiver
+                                      (cocoa-default-value d)))
+                             (t
+                              (%make-nsstring (format nil "~a" (cocoa-default-value d)))))
+                           (objc-constant-string-nsstringptr (cocoa-default-string d))))))