Changeset 16178


Ignore:
Timestamp:
Aug 29, 2014, 3:42:16 PM (7 years ago)
Author:
plkrueger
Message:

Bug Fixes for Lisp app development

Location:
trunk/cocoa-ide-contrib/krueger/InterfaceProjects
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Cocoa Dev/lisp-app-doc.lisp

    r15808 r16178  
    964964               ;; It wouldn't hurt anything, but is a waste of time and would show up in UNDO.
    965965               (suspend-monitoring ip-path)
    966                (unless (#/writeToFile:atomically: (lisp-to-ns-dict (app-info-plist self))
     966               (unless (#/writeToFile:atomically: (lisp-to-ns-plist-dict (app-info-plist self))
    967967                                                  (lisp-to-temp-nsstring ip-path)
    968968                                                  #$YES)
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/interface-packages.lisp

    r16077 r16178  
    353353   lisp-to-ns-object
    354354   lisp-to-ns-misc
     355   lisp-to-ns-plist-dict
    355356   lisp-to-ns-sym
    356357   ns-to-lisp-array
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/ns-object-utils.lisp

    r16077 r16178  
    660660                   assoc-lst)))))))
    661661
     662(defmethod lisp-to-ns-plist-dict ((ht hash-table))
     663  (let* ((count (hash-table-count ht))
     664         (new-dict (#/dictionaryWithCapacity: ns:ns-mutable-dictionary count)))
     665    (maphash #'(lambda (key val)
     666                 (#/setObject:forKey: new-dict
     667                                      (lisp-to-ns-object val)
     668                                      (lisp-to-ns-object key)))
     669             ht)
     670    new-dict))
     671
    662672(defmethod lisp-to-ns-dict ((alist list))
    663673  ;; alist must be in the form of an association list
Note: See TracChangeset for help on using the changeset viewer.