Changeset 742

Timestamp:

Mar 27, 2004, 2:55:40 AM (21 years ago)

Author:

Gary Byers

Message:

Require COCOA-BACKTRACE. Move UI-DO-OPERATION here, implement backtrace
operations.

File:

• trunk/ccl/examples/cocoa.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa.lisp

@@ -18 +18 @@
 (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 +57 @@
 
 
+(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)