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

Modified Files: views.lisp Log Message: Update line data on Drei buffer-view creation.

This fixes problem with modifying the buffer before initial synchronisation has been done.

--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/02/17 14:54:47 1.42 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/03/07 11:45:18 1.43 @@ -634,7 +634,8 @@ bot (clone-mark top :right) lines-prefix 0 lines-suffix 0 - buffer-size (size (buffer view))))) + buffer-size (size (buffer view))) + (update-line-data view)))

(defmethod (setf top) :after (new-value (view drei-buffer-view)) (invalidate-all-strokes view)) @@ -652,7 +653,8 @@ bot (clone-mark top :right) lines-prefix 0 lines-suffix 0 - buffer-size 0))) + buffer-size 0) + (update-line-data view)))

(defmethod cache-string :around ((view drei-buffer-view)) (let ((string (call-next-method)))