Changeset 631

Timestamp:

Mar 6, 2004, 11:54:20 PM (21 years ago)

Author:

Gary Byers

Message:

Only synch if we added a new key.

File:

• trunk/ccl/examples/cocoa-defaults.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa-defaults.lisp

@@ -71 +71 @@
     
 (defun update-cocoa-defaults ()
-  (let* ((domain (send (@class "NSUserDefaults") 'standard-user-defaults)))
+  (let* ((domain (send (@class "NSUserDefaults") 'standard-user-defaults))
+         (need-synch nil))
     (dolist (d (cocoa-defaults))
       (let* ((name (cocoa-default-symbol d))
              (key (objc-constant-string-nsstringptr (cocoa-default-string d))))
         (if (%null-ptr-p (send domain :object-for-key key))
-          (send domain
-                :set-object (%make-nsstring (format nil "~a" (cocoa-default-value d)))
-                :for-key key)
+          (progn
+            (send domain
+                  :set-object (%make-nsstring (format nil "~a" (cocoa-default-value d)))
+                  :for-key key)
+            (setq need-synch t))
           (case (cocoa-default-type d)
             (:int
@@ -88 +91 @@
                (unless (%null-ptr-p nsstring)
                  (set name (lisp-string-from-nsstring nsstring)))))))))
-    (send domain 'synchronize)
-    (send domain 'dictionary-representation)))
+    (when need-synch (send domain 'synchronize))))