mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

[mcclim-cvs] CVS mcclim/Drei/Persistent
by thenriksen 08 Dec '07

08 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Drei/Persistent In directory clnet:/tmp/cvs-serv13736/Drei/Persistent Modified Files: persistent-buffer.lisp Log Message: Changed Drei to use a view-based paradigm, didn't make any significant changes to ESA just yet. --- /project/mcclim/cvsroot/mcclim/Drei/Persistent/persistent-buffer.lisp 2006/11/08 01:15:32 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Persistent/persistent-buffer.lisp 2007/12/08 08:53:49 1.2 @@ -62,10 +62,7 @@ (setf (slot-value cursor 'pos) position)) (defclass persistent-buffer (buffer) - ((low-mark :reader low-mark) - (high-mark :reader high-mark) - (cursors :accessor cursors :initform nil) - (modified :initform nil :reader modified-p)) + ((cursors :accessor cursors :initform nil)) (:documentation "The Climacs persistent buffer base class \(non-instantiable).")) @@ -196,31 +193,6 @@ :buffer (buffer mark) :position offset))) -(defmethod initialize-instance :after ((buffer binseq-buffer) &rest args) - "Create the low-mark and high-mark." - (declare (ignorable args)) - (with-slots (low-mark high-mark) buffer - (setf low-mark (make-instance 'persistent-left-sticky-mark :buffer buffer)) - (setf high-mark (make-instance 'persistent-right-sticky-mark - :buffer buffer)))) - -(defmethod initialize-instance :after ((buffer obinseq-buffer) &rest args) - "Create the low-mark and high-mark." - (declare (ignorable args)) - (with-slots (low-mark high-mark) buffer - (setf low-mark (make-instance 'persistent-left-sticky-mark :buffer buffer)) - (setf high-mark (make-instance 'persistent-right-sticky-mark - :buffer buffer)))) - -(defmethod initialize-instance :after ((buffer binseq2-buffer) &rest args) - "Create the low-mark and high-mark." - (declare (ignorable args)) - (with-slots (low-mark high-mark) buffer - (setf low-mark - (make-instance 'persistent-left-sticky-line-mark :buffer buffer)) - (setf high-mark - (make-instance 'persistent-right-sticky-line-mark :buffer buffer)))) - (defmethod clone-mark ((mark persistent-left-sticky-mark) &optional stick-to) (cond ((or (null stick-to) (eq stick-to :left)) @@ -436,7 +408,7 @@ (assert (<= 0 offset) () (make-condition 'offset-before-beginning :offset offset)) (assert (<= offset (size buffer)) () - (make-condition 'offset-after-end :offset offset)) + (make-condition 'offset-after-end :offset offset)) (setf (slot-value buffer 'contents) (binseq2-insert2 (slot-value buffer 'contents) offset object))) @@ -478,6 +450,8 @@ (make-condition 'offset-before-beginning :offset offset)) (assert (<= offset (size buffer)) () (make-condition 'offset-after-end :offset offset)) + (assert (<= (+ offset n) (size buffer)) () + (make-condition 'offset-after-end :offset (+ offset n))) (setf (slot-value buffer 'contents) (binseq-remove* (slot-value buffer 'contents) offset n))) @@ -486,6 +460,8 @@ (make-condition 'offset-before-beginning :offset offset)) (assert (<= offset (size buffer)) () (make-condition 'offset-after-end :offset offset)) + (assert (<= (+ offset n) (size buffer)) () + (make-condition 'offset-after-end :offset (+ offset n))) (setf (slot-value buffer 'contents) (obinseq-remove* (slot-value buffer 'contents) offset n))) @@ -494,6 +470,8 @@ (make-condition 'offset-before-beginning :offset offset)) (assert (<= offset (size buffer)) () (make-condition 'offset-after-end :offset offset)) + (assert (<= (+ offset n) (size buffer)) () + (make-condition 'offset-after-end :offset (+ offset n))) (setf (slot-value buffer 'contents) (binseq2-remove*2 (slot-value buffer 'contents) offset n))) @@ -639,48 +617,6 @@ (rotatef offset1 offset2)) (buffer-sequence (buffer mark1) offset1 offset2))) -;;; Buffer modification protocol - -(defmethod (setf buffer-object) - :before (object (buffer persistent-buffer) offset) - (declare (ignore object)) - (setf (offset (low-mark buffer)) - (min (offset (low-mark buffer)) offset)) - (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) offset)) - (setf (slot-value buffer 'modified) t)) - -(defmethod insert-buffer-object - :before ((buffer persistent-buffer) offset object) - (declare (ignore object)) - (setf (offset (low-mark buffer)) - (min (offset (low-mark buffer)) offset)) - (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) offset)) - (setf (slot-value buffer 'modified) t)) - -(defmethod insert-buffer-sequence - :before ((buffer persistent-buffer) offset sequence) - (declare (ignore sequence)) - (setf (offset (low-mark buffer)) - (min (offset (low-mark buffer)) offset)) - (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) offset)) - (setf (slot-value buffer 'modified) t)) - -(defmethod delete-buffer-range - :before ((buffer persistent-buffer) offset n) - (setf (offset (low-mark buffer)) - (min (offset (low-mark buffer)) offset)) - (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) (+ offset n))) - (setf (slot-value buffer 'modified) t)) - -(defmethod clear-modify ((buffer persistent-buffer)) - (beginning-of-buffer (high-mark buffer)) - (end-of-buffer (low-mark buffer)) - (setf (slot-value buffer 'modified) nil)) - (defmacro filter-and-update (l filter-fn update-fn) (let ((prev (gensym)) (curr (gensym)) @@ -731,3 +667,10 @@ (defmethod delete-buffer-range :after ((buffer persistent-buffer) offset n) (adjust-cursors-on-delete buffer offset n)) + +(defmethod make-buffer-mark ((buffer persistent-buffer) + &optional (offset 0) (stick-to :left)) + (make-instance (ecase stick-to + (:left 'persistent-left-sticky-mark) + (:right 'persistent-right-sticky-mark)) + :offset offset :buffer buffer))

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 08 Dec '07

08 Dec '07

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv13736/ESA Modified Files: utils.lisp packages.lisp esa.lisp esa-buffer.lisp Log Message: Changed Drei to use a view-based paradigm, didn't make any significant changes to ESA just yet. --- /project/mcclim/cvsroot/mcclim/ESA/utils.lisp 2007/08/13 21:56:04 1.3 +++ /project/mcclim/cvsroot/mcclim/ESA/utils.lisp 2007/12/08 08:53:48 1.4 @@ -18,7 +18,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -;;; Miscellaneous utilities used in Climacs. +;;; Miscellaneous utilities used in ESA. (in-package :esa-utils) @@ -212,3 +212,99 @@ specifiers." (some (lambda (x) (subtypep x `(and ,@types))) types)) + +(defclass observable-mixin () + ((%observers :accessor observers + :initform '())) + (:documentation "A mixin class that adds the capability for a +subclass to have a list of \"event subscribers\" (observers) that +can be informed via callback (the function `observer-notified') +whenever the state of the object changes. The order in which +observers will be notified is undefined.")) + +(defgeneric add-observer (observable observer) + (:documentation "Add an observer to an observable object. If +the observer is already observing `observable', it will not be +added again.")) + +(defmethod add-observer ((observable observable-mixin) observer) + ;; Linear in complexity, perhaps a transparent switch to a hash + ;; table would be a good idea for large amounts of observers. + (pushnew observer (observers observable))) + +(defgeneric remove-observer (observable observer) + (:documentation "Remove an observer from an observable +object. If observer is not in the list of observers of +`observable', nothing will happen.")) + +(defmethod remove-observer ((observable observable-mixin) observer) + (setf (observers observable) + (delete observer (observers observable)))) + +(defgeneric observer-notified (observer observable data) + (:documentation "This function is called by `observable' when +its state changes on each observer that is observing +it. `Observer' is the observing object, `observable' is the +observed object. `Data' is arbitrary data that might be of +interest to `observer', it is recommended that subclasses of +`observable-mixin' specify exactly which form this data will +take, the observer protocol does not guarantee anything. It is +non-&optional so that methods may be specialised on it, if +applicable. The default method on this function is a no-op, so it +is never an error to not define a method on this generic function +for an observer.") + (:method (observer (observable observable-mixin) data) + ;; Never a no-applicable-method error. + nil)) + +(defgeneric notify-observers (observable &optional data-fn) + (:documentation "Notify each observer of `observable' by +calling `observer-notified' on them. `Data-fn' will be called, +with the observer as the single argument, to obtain the `data' +argument to `observer-notified'. The default value of `data-fn' +should cause the `data' argument to be NIL.")) + +(defmethod notify-observers ((observable observable-mixin) + &optional (data-fn (constantly nil))) + (dolist (observer (observers observable)) + (observer-notified observer observable + (funcall data-fn observer)))) + +(defclass name-mixin () + ((%name :accessor name + :initarg :name + :type string + :documentation "The name of the named object.")) + (:documentation "A class used for defining named objects.")) + +(defclass subscriptable-name-mixin (name-mixin) + ((%subscript :accessor subscript + :documentation "The subscript of the named object.") + (%subscript-generator :accessor subscript-generator + :initarg :subscript-generator + :initform (constantly 1) + :documentation "A function used for +finding the subscript of a `name-mixin' whenever the name is +set (including during object initialization). This function will +be called with the name as the single argument.")) + (:documentation "A class used for defining named objects. A +facility is provided for assigning a named object a \"subscript\" +uniquely identifying the object if there are other objects of the +same name in its collection (in particular, if an editor has two +buffers with the same name).")) + +(defmethod initialize-instance :after ((name-mixin subscriptable-name-mixin) + &rest initargs) + (declare (ignore initargs)) + (setf (subscript name-mixin) + (funcall (subscript-generator name-mixin) (name name-mixin)))) + +(defmethod subscripted-name ((name-mixin subscriptable-name-mixin)) + ;; Perhaps this could be written as a single format statement? + (if (/= (subscript name-mixin) 1) + (format nil "~A <~D>" (name name-mixin) (subscript name-mixin)) + (name name-mixin))) + +(defmethod (setf name) :after (new-name (name-mixin subscriptable-name-mixin)) + (setf (subscript name-mixin) + (funcall (subscript-generator name-mixin) new-name))) --- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/11/19 20:34:10 1.5 +++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/12/08 08:53:48 1.6 @@ -41,7 +41,12 @@ #:invoke-with-dynamic-bindings-1 #:invoke-with-dynamic-bindings #:maptree - #:subtype-compatible-p)) + #:subtype-compatible-p + #:observable-mixin + #:add-observer #:remove-observer + #:observer-notified #:notify-observers + #:name-mixin #:name + #:subscriptable-name-mixin #:subscripted-name #:subscript #:subscript-generator)) (defpackage :esa (:use :clim-lisp :clim :esa-utils) --- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/11/19 20:28:43 1.11 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/12/08 08:53:48 1.12 @@ -41,10 +41,18 @@ (defgeneric esa-current-buffer (esa) (:documentation "Return the current buffer of APPLICATION-FRAME.")) +(defgeneric (setf esa-current-buffer) (new-buffer esa) + (:documentation "Replace the current buffer of +APPLICATION-FRAME with NEW-BUFFER.")) + (defun current-buffer () "Return the currently active buffer of the running ESA." (esa-current-buffer *esa-instance*)) +(defun (setf current-buffer) (new-buffer) + "Return the currently active buffer of the running ESA." + (setf (esa-current-buffer *esa-instance*) new-buffer)) + (defgeneric windows (esa) (:documentation "Return a list of all the windows of the ESA.") (:method ((esa application-frame)) --- /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2007/11/13 13:05:38 1.2 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2007/12/08 08:53:48 1.3 @@ -45,10 +45,10 @@ representation" (frame-save-buffer-to-stream *application-frame* buffer stream)) -(defclass esa-buffer-mixin () +(defclass esa-buffer-mixin (name-mixin) ((%filepath :initform nil :accessor filepath) - (%name :initarg :name :initform "*scratch*" :accessor name) (%needs-saving :initform nil :accessor needs-saving) (%file-write-time :initform nil :accessor file-write-time) (%file-saved-p :initform nil :accessor file-saved-p) - (%read-only-p :initform nil :accessor read-only-p))) + (%read-only-p :initform nil :accessor read-only-p)) + (:default-initargs :name "*scratch*"))

1 0

[mcclim-cvs] CVS mcclim/Lisp-Dep
by dlichteblau 01 Dec '07

01 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv5990 Modified Files: fix-sbcl.lisp Log Message: Read fix-sbcl.lisp into CL-USER so that its fasl does not look for user packages at load time (which might not exist anymore). --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-sbcl.lisp 2005/09/22 11:40:29 1.10 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-sbcl.lisp 2007/12/01 12:59:51 1.11 @@ -1,3 +1,5 @@ +(in-package :cl-user) + (eval-when (:compile-toplevel :execute) (when (find-package "SB-MOP") (pushnew :sb-mop *features*)))

1 0

[mcclim-cvs] CVS mcclim/Lisp-Dep
by thenriksen 28 Nov '07

28 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv20064 Modified Files: mp-sbcl.lisp Log Message: Removed :locked keyword from call to sb-thread:get-mutex. --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2006/08/04 12:49:53 1.9 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2007/11/28 08:11:12 1.10 @@ -63,7 +63,7 @@ (defvar *permanent-queue* (sb-thread:make-mutex :name "Lock for disabled threads")) (unless (sb-thread:mutex-value *permanent-queue*) - (sb-thread:get-mutex *permanent-queue* :locked nil)) + (sb-thread:get-mutex *permanent-queue* nil)) (defun make-process (function &key name) (let ((p (%make-process :name name :function function)))

1 0

[mcclim-cvs] CVS mcclim/Backends/PostScript
by crhodes 27 Nov '07

27 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript In directory clnet:/tmp/cvs-serv12535/Backends/PostScript Modified Files: class.lisp sheet.lisp Log Message: New new-page handling for the Postscript backend. Initially from hefner; somewhat frobbed to make EPS continue to work too. --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp 2006/03/29 10:43:38 1.9 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp 2007/11/27 19:49:33 1.10 @@ -79,7 +79,8 @@ :reader sheet-native-transformation) (current-page :initform 0) (document-fonts :initform '()) - (graphics-state-stack :initform '()))) + (graphics-state-stack :initform '()) + (pages :initform nil :accessor postscript-pages))) (defun make-postscript-stream (file-stream port device-type multi-page scale-to-fit --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2006/04/01 21:07:04 1.15 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2007/11/27 19:49:33 1.16 @@ -62,7 +62,9 @@ (with-output-recording-options (stream :record t :draw nil) (with-graphics-state (stream) ;; we need at least one level of saving -- APD, 2002-02-11 - (funcall continuation stream))) + (funcall continuation stream) + (unless (eql (slot-value stream 'paper) :eps) + (new-page stream)))) ; Close final page. (with-slots (file-stream title for orientation paper) stream (format file-stream "%!PS-Adobe-3.0~@[ EPSF-3.0~*~]~%" (eq device-type :eps)) @@ -98,10 +100,17 @@ (write-font-to-postscript-stream (sheet-medium stream) text-style)) (start-page stream) (format file-stream "~@[~A ~]~@[~A translate~%~]" translate-x translate-y) - (let ((record (stream-output-history stream))) - (with-output-recording-options (stream :draw t :record nil) - (with-graphics-state (stream) - (replay record stream)))))) + + (with-output-recording-options (stream :draw t :record nil) + (with-graphics-state (stream) + (case paper + ((:eps) (replay (stream-output-history stream) stream)) + (t (let ((last-page (first (postscript-pages stream)))) + (dolist (page (reverse (postscript-pages stream))) + (replay page stream) + (unless (eql page last-page) + (emit-new-page stream)))))))))) + (with-slots (file-stream current-page) stream (format file-stream "end~%showpage~%~%") (format file-stream "%%Trailer~%") @@ -118,39 +127,21 @@ (format file-stream "%%Page: ~D ~:*~D~%" (incf current-page)) (format file-stream "~A begin~%" *dictionary-name*))) -;;; We define a new output-record class and a method on -;;; replay-output-record so that we can record calls to new-page. -;;; -;;; FIXME: I (CSR) think that this works because we stuff this in a -;;; sequence-output-record, so that the output records are replayed -;;; in order. That's fine, but if someone ever gets round to implementing -;;; R-trees or similar, this method for storing the order of events might -;;; stop working. CSR, 2005-12-30 -(defclass new-page-record (climi::basic-output-record) - ()) - -(defmethod replay-output-record ((record new-page-record) stream - &optional (region nil) (x-offset 0) (y-offset 0)) - (declare (ignore region x-offset y-offset)) - (new-page stream)) - -(defun new-page (stream) - (when (stream-recording-p stream) - (stream-add-output-record stream (make-instance 'new-page-record))) - (when (stream-drawing-p stream) - ;; FIXME: it is necessary to do smth with GS -- APD, 2002-02-11 - ;; FIXME^2: what do you mean by that? -- TPD, 2005-12-23 - (postscript-restore-graphics-state stream) - (format (postscript-stream-file-stream stream) "end~%showpage~%") - (start-page stream) - (postscript-save-graphics-state stream) - ;; If we call clear-output-record here, it wipes all remaining - ;; output, so all pages after the first are blank. But I don't - ;; know quite what the original purpose of the call was, so, - ;; FIXME. -- TPD 2005-12-23 - #-(and) (clear-output-record (stream-output-history stream))) +(defun new-page (stream) + (push (stream-output-history stream) (postscript-pages stream)) + (let ((history (make-instance 'standard-tree-output-history :stream stream))) + (setf (slot-value stream 'climi::output-history) history + (stream-current-output-record stream) history)) (setf (stream-cursor-position stream) (values 0 0))) +(defun emit-new-page (stream) + ;; FIXME: it is necessary to do smth with GS -- APD, 2002-02-11 + ;; FIXME^2: what do you mean by that? -- TPD, 2005-12-23 + (postscript-restore-graphics-state stream) + (format (postscript-stream-file-stream stream) "end~%showpage~%") + (start-page stream) + (postscript-save-graphics-state stream)) + ;;;; Output Protocol (defmethod medium-drawable ((medium postscript-medium))

1 0

[mcclim-cvs] CVS mcclim
by crhodes 21 Nov '07

21 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv11284 Modified Files: NEWS Log Message: Improve the Null backend sufficiently to be able to run gsharp headlessly. --- /project/mcclim/cvsroot/mcclim/NEWS 2007/09/29 13:27:26 1.26 +++ /project/mcclim/cvsroot/mcclim/NEWS 2007/11/21 22:33:50 1.27 @@ -1,6 +1,9 @@ * Changes in mcclim-0.9.6 relative to 0.9.5: ** Bug fix: ESA's help commands are better at finding bindings and describing them +** Bug fix: Some missing methods and functions have been implemented + for the Null backend, allowing headless operation for many + applications. * Changes in mcclim-0.9.5 relative to 0.9.4: ** Installation: the systems clim-listener, clim-examples,

1 0

[mcclim-cvs] CVS mcclim/Backends/Null
by crhodes 21 Nov '07

21 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Null In directory clnet:/tmp/cvs-serv11284/Backends/Null Modified Files: frame-manager.lisp medium.lisp port.lisp Log Message: Improve the Null backend sufficiently to be able to run gsharp headlessly. --- /project/mcclim/cvsroot/mcclim/Backends/Null/frame-manager.lisp 2006/03/24 11:45:03 1.1 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/frame-manager.lisp 2007/11/21 22:33:51 1.2 @@ -22,9 +22,22 @@ (defclass null-frame-manager (frame-manager) ()) +;;; FIXME: maybe this or something like it belongs in CLIMI? +(defun generic-concrete-pane-class (name) + (let* ((concrete-name (get name 'climi::concrete-pane-class-name)) + (maybe-name (concatenate 'string (symbol-name name) + (symbol-name '#:-pane))) + (maybe-symbol (find-symbol maybe-name :climi)) + (maybe-class (find-class maybe-symbol nil))) + (or maybe-class + (find-class concrete-name nil) + (find-class (if (keywordp name) + (intern (symbol-name name) :climi) + name) nil)))) + (defmethod make-pane-1 ((fm null-frame-manager) (frame application-frame) type &rest initargs) - (apply #'make-instance type + (apply #'make-instance (generic-concrete-pane-class type) :frame frame :manager fm :port (port frame) initargs)) --- /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp 2007/07/17 15:58:47 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp 2007/11/21 22:33:51 1.4 @@ -204,3 +204,15 @@ (defmethod medium-miter-limit ((medium null-medium)) 0) + +;;; FIXME: need these to stop the default method attempting to do +;;; pixmaps, which it appears the null backend doesn't support yet. +(defmethod climi::medium-draw-bezier-design* + ((medium null-medium) (design climi::bezier-area)) + nil) +(defmethod climi::medium-draw-bezier-design* + ((medium null-medium) (design climi::bezier-union)) + nil) +(defmethod climi::medium-draw-bezier-design* + ((medium null-medium) (design climi::bezier-difference)) + nil) --- /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp 2007/07/17 15:58:47 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp 2007/11/21 22:33:51 1.5 @@ -145,6 +145,8 @@ (defmethod port-allocate-pixmap ((port null-port) sheet width height) (declare (ignore sheet width height)) + ;; FIXME: this isn't actually good enough; it leads to errors in + ;; WITH-OUTPUT-TO-PIXMAP nil) (defmethod port-deallocate-pixmap ((port null-port) pixmap)

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 20 Nov '07

20 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv18392 Modified Files: drei-clim.lisp Log Message: Only drei-areas have editor panes. --- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2007/11/19 20:28:43 1.21 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2007/11/20 09:55:28 1.22 @@ -358,7 +358,7 @@ (multiple-value-list (output-record-position area))) (tree-recompute-extent area)) -(defmethod esa-current-window ((drei drei)) +(defmethod esa-current-window ((drei drei-area)) (editor-pane drei)) (defmethod display-drei ((drei drei-area))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv1006/Drei Modified Files: lisp-syntax-commands.lisp Log Message: Oops, use the provided mark, not the buffer mark, when asked for indentation information. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2007/11/19 22:16:47 1.9 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2007/11/19 22:42:27 1.10 @@ -69,7 +69,7 @@ :buffer buffer-implementation :offset offset2) #'(lambda (mark) - (syntax-line-indentation (point) tab-width (current-syntax))) + (syntax-line-indentation mark tab-width (current-syntax))) fill-column tab-width (current-syntax)

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv31329/Drei Modified Files: drei.lisp Log Message: Band-aid fix for the tab-width issue in Drei views. Really, views have no way of having a reasonable idea of how wide a tab or space character should be. --- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2007/11/19 22:16:47 1.18 +++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2007/11/19 22:37:41 1.19 @@ -136,7 +136,9 @@ 1) (defmethod tab-space-count ((tabify tabify-mixin)) - (round (tab-width tabify) (space-width tabify))) + (if (and (tab-width tabify) (space-width tabify)) + (round (tab-width tabify) (space-width tabify)) + 8)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs