Changeset 14661

Timestamp:

Mar 1, 2011, 3:23:24 PM (14 years ago)

Author:

Gary Byers

Message:

In -windowShouldClose:, find the document via
(#/document (#/windowController w)). NSWindows don't implement
#/document on Cocotron. (The do on Cocoa, but aren't ... um
... documented to.)

Fixes ticket:826.

File:

• trunk/source/cocoa-ide/cocoa-listener.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-listener.lisp

@@ -305 +305 @@
 (objc:defmethod (#/windowShouldClose: #>BOOL) ((w hemlock-listener-frame)
                                                sender)
-  (let* ((doc (#/document w)))
+  (let* ((doc (#/document (#/windowController w))))
     (if (or (%null-ptr-p doc)
             (and (hemlock-document-process doc)