[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)))