Changeset 7093


Ignore:
Timestamp:
Aug 25, 2007, 7:43:57 AM (14 years ago)
Author:
gb
Message:

In COCOA-EDIT, invoke #/openDocumentWithContentsOfURL:display:error:,
since calling #/openDocumentWithContentsOfURL:display: complains that
#/dataRepresentationOfType: isn't implemented in 32-bit versions of
Cocoa. (Note that we'd been calling
#/openDocumentWithContentsOfURL:display:error: as part of the
m-. implementation without incident.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-editor.lisp

    r7086 r7093  
    26592659
    26602660;;; Enable CL:ED
    2661 (defun cocoa-edit (arg)
     2661(defun cocoa-edit (&optional arg)
    26622662  (let* ((document-controller (#/sharedDocumentController ns:ns-document-controller)))
    26632663    (cond ((null arg)
     
    26752675                    (signature (#/methodSignatureForSelector:
    26762676                                document-controller
    2677                                 (@selector #/openDocumentWithContentsOfURL:display:)))
     2677                                (@selector #/openDocumentWithContentsOfURL:display:error:)))
    26782678                    (invocation (#/invocationWithMethodSignature: ns:ns-invocation
    26792679                                                                  signature)))
    26802680             
    26812681               (#/setTarget: invocation document-controller)
    2682                (#/setSelector: invocation (@selector #/openDocumentWithContentsOfURL:display:))
     2682               (#/setSelector: invocation (@selector #/openDocumentWithContentsOfURL:display:error:))
    26832683               (rlet ((p :id)
    2684                       (q :<BOOL>))
     2684                      (q :<BOOL>)
     2685                      (perror :id +null-ptr+))
    26852686                 (setf (pref p :id) url
    26862687                       (pref q :<BOOL>) #$YES)
    26872688                 (#/setArgument:atIndex: invocation p 2)
    26882689                 (#/setArgument:atIndex: invocation q 3)
     2690                 (#/setArgument:atIndex: invocation perror 4)
    26892691                 (#/performSelectorOnMainThread:withObject:waitUntilDone:
    26902692                  invocation
Note: See TracChangeset for help on using the changeset viewer.