Re: Fred

[bill@cambridge.apple.com (Bill St. Clair)]

There was a small mistake in some of the example code I sent out
earlier today. We forgot to export OPEN-APPLICATION-DOCUMENT in
patch 1, so you'll need to give it a package prefix:

(defclass my-application (application) ())

(setq *application* (make-instance 'my-application))

(defmethod ccl::open-application-document ((app my-application) document
                                           &optional startup)
  (declare (ignore startup))
  (let ((w (fred document)))
    (reinitialize-the-window w)))