[mcclim-cvs] CVS mcclim/Drei

[rstrandh]

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