[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Fixed cursor-height calculation when at end of line.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/14 19:57:02	1.28
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/14 20:58:29	1.29
@@ -822,9 +822,12 @@
                                             (- (x2 stroke-dimensions) absolute-x-position)
                                             (- (offset-in-stroke-position pane view stroke (1+ offset))
                                                relative-x-position)))))))))
-                 (return-from
-                  worker (values (x2 line-dimensions) (y1 line-dimensions)
-                                 (dimensions-height line-dimensions))))))))
+                 ;; If we reach this point, we are just past the last
+                 ;; stroke, so let's extract information from it.
+                 (let ((stroke-dimensions (stroke-dimensions (line-last-stroke line))))
+                   (return-from
+                    worker (values (x2 stroke-dimensions) (y1 stroke-dimensions)
+                                   (dimensions-height stroke-dimensions)))))))))
     (with-accessors ((buffer buffer) (top top) (bot bot)) view
       (let ((default-object-width
              (text-style-width