[mcclim-cvs] CVS mcclim/Drei

[rstrandh]

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