[Openmcl-cvs-notifications] r12697 - /trunk/source/cocoa-ide/cocoa-editor.lisp

[palter at clozure.com]

Author: palter
Date: Wed Aug 26 21:08:08 2009
New Revision: 12697

Log:
Implement a legacy method used by Cocotron in NSDocument's NSSavePanel supp=
ort.
With this change, the save panel seems to work now as well.

Modified:
    trunk/source/cocoa-ide/cocoa-editor.lisp

Modified: trunk/source/cocoa-ide/cocoa-editor.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Wed Aug 26 21:08:08 2009
@@ -2745,7 +2745,12 @@
           (setf (hi::buffer-modified buffer) nil))
         t))))
 =

-
+;;; Cocotron's NSDocument uses the deprecated as of 10.4 methods to implem=
ent the NSSavePanel
+#+cocotron
+(objc:defmethod (#/writeToFile:ofType: :<BOOL>)
+    ((self hemlock-editor-document) path type)
+  (rlet ((perror :id +null-ptr+))
+    (#/writeToURL:ofType:error: (#/fileURLWithPath: ns:ns-url path) self t=
ype perror)))
 =

 =

 ;;; Shadow the setFileURL: method, so that we can keep the buffer