[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei.lisp 
Log Message:
Add :editable-p initarg to Drei.


--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2006/11/10 16:47:16	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2006/11/10 18:37:56	1.3
@@ -476,7 +476,7 @@
                 :type (or minibuffer-pane null)
                 :documentation "The minibuffer pane (or null)
 associated with the Drei instance."))
-  (:default-initargs :active t)
+  (:default-initargs :active t :editable-p t)
   (:documentation "An abstract Drei class that should not be
 directly instantiated."))
 
@@ -485,10 +485,12 @@
               (setf (active cursor) new-val))
           (cursors drei)))
 
-(defmethod initialize-instance :after ((object drei) &rest args &key active single-line)
+(defmethod initialize-instance :after ((object drei) &rest args &key
+                                       active single-line (editable-p t))
   (declare (ignore args))
   (setf (single-line-p (implementation (buffer object))) single-line)
   (with-slots (buffer point mark top bot scan) object
+    (setf (read-only-p buffer) (not editable-p))
     (setf point (clone-mark (point buffer)))
     (when (null point)
       (setf point (clone-mark (low-mark buffer) :right)))