[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	undo.lisp drei.lisp 
Log Message:
Explicitly define the generic functions of some accessor methods.


--- /project/mcclim/cvsroot/mcclim/Drei/undo.lisp	2006/11/19 11:39:45	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/undo.lisp	2006/12/04 10:17:21	1.3
@@ -84,6 +84,10 @@
 (defclass undo-record () ()
   (:documentation "The base class for all undo records."))
 
+(defgeneric undo-tree (record)
+  (:documentation "The undo tree to which the undo record
+`record' belongs."))
+
 (defclass standard-undo-record (undo-record)
   ((parent :initform nil :accessor parent)
    (tree :initform nil
--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2006/11/30 17:33:31	1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2006/12/04 10:17:21	1.10
@@ -128,24 +128,39 @@
 ;;;
 ;;; Undo
 
+(defgeneric undo-tree (buffer)
+  (:documentation "The undo-tree object associated with the
+buffer. This usually contains a record of every change that has
+been made to the buffer since it was created."))
+
+(defgeneric undo-accumulate (buffer)
+  (:documentation "A list of the changes that have been made to
+`buffer' since the last time undo was added to the undo tree for
+the buffer. The list returned by this function is initially
+NIL (the empty list). The :before methods on
+`insert-buffer-object', `insert-buffer-sequence', and
+`delete-buffer-range' push undo records on to this list."))
+
+(defgeneric performing-undo (buffer)
+  (:documentation "If true, the buffer is currently performing an
+undo operation. The :before methods on `insert-buffer-object',
+`insert-buffer-sequence', and `delete-buffer-range' push undo
+records onto the undo accumulator only if `performing-undo' is
+false, so that no undo information is added as a result of an
+undo operation."))
+
 (defclass undo-mixin ()
   ((tree :initform (make-instance 'standard-undo-tree)
          :reader undo-tree
          :documentation "Returns the undo-tree of the buffer.")
    (undo-accumulate :initform '()
                     :accessor undo-accumulate
-                    :documentation "The list returned by this
-function is initially NIL (the empty list). The :before methods
-on `insert-buffer-object', `insert-buffer-sequence', and
-`delete-buffer-range' push undo records on to this list.")
+                    :documentation "The undo records created
+since the start of the undo context.")
    (performing-undo :initform nil
                     :accessor performing-undo
-                    :documentation "This is initially NIL.
-The :before methods on `insert-buffer-object',
-`insert-buffer-sequence', and `delete-buffer-range' push undo
-records onto the undo accumulator only if this slot is NIL so
-that no undo information is added as a result of an undo
-operation."))
+                    :documentation "True if we are currently
+performing undo, false otherwise."))
   (:documentation "This is a mixin class that buffer classes can
 inherit from. It contains an undo tree, an undo accumulator and a
 flag specifyng whether or not it is currently performing