[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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