Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv19487
Modified Files: drei-redisplay.lisp Log Message: The function tab-width was called with one argument but requires two. This fixed made it necessary to add the view as an additional argument to offset-x-displacement, because the view is a subclass of tabify-mixin which is what the second argument of tab-width has to be.
--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2007/12/08 08:53:50 1.10 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2007/12/10 05:25:19 1.11 @@ -178,7 +178,7 @@ (* text-style-height (- line-number (1- found-line-number))))))))))
-(defun offset-x-displacement (pane line-beg-mark offset) +(defun offset-x-displacement (pane view line-beg-mark offset) (with-sheet-medium (medium pane) (let ((displacement 0) (style (medium-text-style pane))) @@ -205,7 +205,7 @@ while go-again if (eql object #\Tab) do (progn (incf displacement (string-size array)) - (incf displacement (tab-width pane)) + (incf displacement (tab-width pane view)) (setf (fill-pointer array) 0)) else if (and (characterp object) (not (eql object #\Tab))) @@ -238,7 +238,7 @@ (descent (text-style-descent style pane)) (height (+ ascent descent)) (y (line-vertical-offset pane view line-number)) - (x (offset-x-displacement pane line-beg offset))) + (x (offset-x-displacement pane view line-beg offset))) (values x y height style-width))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;