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

Modified Files: drei-redisplay.lisp Log Message: Fixed typo, dispatcer -> dispatcher.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/08 14:52:18 1.23 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/09 12:47:31 1.24 @@ -99,7 +99,7 @@ (ink +foreground-ink+) (style nil))

-(defconstant +default-stroke-drawer-dispatcer+ +(defconstant +default-stroke-drawer-dispatcher+ #'(lambda (stream view stroke cursor-x cursor-y default-drawing-fn) (funcall default-drawing-fn stream view stroke cursor-x cursor-y)) "A simple function of six arguments that simply calls the first @@ -109,7 +109,7 @@ (defstruct drawing-options "A set of options for how to display a stroke." (face (make-face)) - (function +default-stroke-drawer-dispatcer+)) + (function +default-stroke-drawer-dispatcher+))

(defun drawing-options-equal (o1 o2) "Return true if `o1' and `o2' are equal, that is, they specify @@ -123,13 +123,13 @@ (and (equal (face-ink f1) (face-ink f2)) (equal (face-style f1) (face-style f2)) (or (not (eq (drawing-options-function o1) - +default-stroke-drawer-dispatcer+)) + +default-stroke-drawer-dispatcher+)) (eq (drawing-options-function o2) - +default-stroke-drawer-dispatcer+)) + +default-stroke-drawer-dispatcher+)) (or (not (eq (drawing-options-function o2) - +default-stroke-drawer-dispatcer+)) + +default-stroke-drawer-dispatcher+)) (eq (drawing-options-function o1) - +default-stroke-drawer-dispatcer+))))) + +default-stroke-drawer-dispatcher+)))))

(defconstant +default-drawing-options+ (make-drawing-options) "The default set of drawing options used for strokes when