[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	views.lisp packages.lisp 
Log Message:
Changed the tab-indentation code a bit. Whether or not to indent with
tabs is now a property of the view, not the buffer.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2007/12/15 07:23:54	1.5
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2007/12/18 08:39:43	1.6
@@ -57,7 +57,10 @@
    (%tab-width :accessor recorded-tab-width
                :initform nil)
    (%recorded-stream :accessor recorded-stream
-                     :initform nil)))
+                     :initform nil)
+   (%use-tabs :accessor use-tabs
+              :initform *use-tabs-for-indentation*
+              :initarg :use-tabs)))
 
 (defun maybe-update-recordings (stream tabify)
   (with-accessors ((space-width recorded-space-width)
@@ -368,10 +371,7 @@
 
 (defclass drei-buffer (delegating-buffer esa-buffer-mixin
                                          observable-buffer-mixin)
-  ((point :initarg :point :initform nil :accessor point-of)
-   (indent-tabs-mode :initarg :indent-tabs-mode
-                              :initform *use-tabs-for-indentation*
-                              :accessor indent-tabs-mode))
+  ((point :initarg :point :initform nil :accessor point-of))
   (:default-initargs :implementation (make-instance 'extended-standard-buffer)))
 
 (defmethod initialize-instance :after ((buffer drei-buffer) &rest args
--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2007/12/10 21:25:12	1.21
+++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2007/12/18 08:39:43	1.22
@@ -185,7 +185,6 @@
            #:display-drei #:display-drei-pane #:display-drei-area #:full-redisplay
            #:offset-to-screen-position
            #:page-down #:page-up
-           #:indent-tabs-mode
            #:isearch-state #:search-string #:search-mark #:search-buffer
            #:search-forward-p #:search-success-p
            #:query-replace-state #:string1 #:string2 #:targets #:occurrences
@@ -212,7 +211,7 @@
            #:drei-syntax-view #:syntax
            #:point-mark-view
            #:textual-drei-syntax-view
-           #:tab-space-count #:space-width #:tab-width
+           #:tab-space-count #:space-width #:tab-width #:use-tabs
            #:auto-fill-mode #:auto-fill-column
            #:isearch-mode #:isearch-states #:isearch-previous-string
            #:query-replace-mode