Index: /trunk/ccl/examples/cocoa.lisp
===================================================================
--- /trunk/ccl/examples/cocoa.lisp	(revision 741)
+++ /trunk/ccl/examples/cocoa.lisp	(revision 742)
@@ -18,13 +18,8 @@
 (require "COCOA-WINDOW")
 (require "COCOA-LISTENER")
-
+(require "COCOA-BACKTRACE")
 
   
 
-
-;;; Maintain a list of all open documents.
-(defparameter *open-editor-documents* ())
-
-(defparameter *open-editor-documents-lock* (make-lock))
 
 
@@ -62,4 +57,15 @@
 
 
+(defmethod ui-object-do-operation ((o ns:ns-application)
+                                   operation &rest args)
+  (case operation
+    (:note-current-package (ui-object-note-package o (car args)))
+    (:eval-selection (ui-object-eval-selection o (car args)))
+    (:enter-backtrace-context
+     (ui-object-enter-backtrace-context o (car args)))
+    (:exit-backtrace-context
+     (ui-object-exit-backtrace-context o (car args)))))
+
+
 (start-cocoa-application)