Changeset 12492


Ignore:
Timestamp:
Jul 31, 2009, 12:09:13 PM (10 years ago)
Author:
gb
Message:

Work around missing Cocotron functionality.

File:
1 edited

Legend:

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

    r11788 r12492  
    5555               (textstorage (#/textStorage textview))
    5656               (dict (pref dictp :id))
    57                (title (unless (%null-ptr-p dict)
     57               (title
     58                #-cocotron
     59                 (unless (%null-ptr-p dict)
    5860                        (#/valueForKey: dict #&NSTitleDocumentAttribute))))
    5961          (when title
     
    150152                                            :document-attributes pdocattrs))
    151153                     (docattrs (pref pdocattrs :id))
    152                      (title (if (%null-ptr-p docattrs)
     154                     (title #+cocotron +null-ptr+
     155                            #-cocotron
     156                            (if (%null-ptr-p docattrs)
    153157                              +null-ptr+
    154158                              (#/objectForKey: docattrs #&NSTitleDocumentAttribute))))
Note: See TracChangeset for help on using the changeset viewer.