Changeset 5540

Timestamp:

Nov 9, 2006, 2:42:21 PM (18 years ago)

Author:

Gary Byers

Message:

:set-document-edited for listener "documents" is a no-op.

File:

• trunk/ccl/examples/cocoa-listener.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-listener.lisp

@@ -85 +85 @@
   )
 
+
+;;; Listener documents are never (or always) ediited.  Don't cause their
+;;; close boxes to be highlighted.
+(define-objc-method ((:void :set-document-edited (:<BOOL> edited))
+                     hemlock-listener-window-controller)
+  (declare (ignore edited)))
+ 
+
 (define-objc-method ((:id :init-with-window w)
                      hemlock-listener-window-controller)