Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv11340

Modified Files: core-commands.lisp drei.lisp Log Message: Added additional documentation of *drei-instance* because it took me a while to figure out what type it was supposed to be.

Auto-fill-mode is now a flag in the view, but com-auto-fill-mode called the accessor with *drei-instance* which is a pane. I fixed com-auto-fill-mode to call the accessor with the (current-view) instead.

--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp 2007/12/08 23:25:23 1.8 +++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp 2007/12/17 06:29:37 1.9 @@ -259,8 +259,9 @@ '((#^ :shift :meta)))

(define-command (com-auto-fill-mode :name t :command-table fill-table) () - (setf (auto-fill-mode *drei-instance*) - (not (auto-fill-mode *drei-instance*)))) + (let ((view (current-view))) + (setf (auto-fill-mode view) + (not (auto-fill-mode view)))))

(define-command (com-fill-paragraph :name t :command-table fill-table) () (let ((begin-mark (clone-mark (point))) --- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2007/12/10 21:25:12 1.21 +++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2007/12/17 06:29:37 1.22 @@ -64,7 +64,7 @@ ;;; Convenience stuff.

(defvar *drei-instance* nil - "The currently running Drei instance.") + "The currently running Drei instance. The value is a subclass of pane.")

(defun current-view (&optional (object *drei-instance*)) "Return the view of the provided object. If no object is