Update of /project/gsharp/cvsroot/gsharp In directory common-lisp:/tmp/cvs-serv22978

Modified Files: measure.lisp Log Message: Added an :after method to the append-char generic-function so that the buffer is marked as modified when lyrics change.

--- /project/gsharp/cvsroot/gsharp/measure.lisp 2006/02/09 03:17:25 1.26 +++ /project/gsharp/cvsroot/gsharp/measure.lisp 2006/02/15 02:44:48 1.27 @@ -113,6 +113,10 @@ (declare (ignore direction)) (mark-modified element))

+(defmethod append-char :after ((element lyrics-element) char) + (declare (ignore char)) + (mark-modified element)) + (defmethod note-position ((note note)) (let ((clef (clef (staff note)))) (+ (- (pitch note) @@ -763,7 +767,8 @@ (1- (nb-measures (segmentno buf (1- (nb-segments buf)))))))

(defmethod mark-modified ((buffer rbuffer)) - (setf (modified-p buffer) t)) + (setf (modified-p buffer) t) + (setf (needs-saving buffer) t))

(defmethod add-segment :after ((segment segment) (buffer rbuffer) position) (declare (ignore position))