Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv9277/Drei
Modified Files: drei-redisplay.lisp Log Message: Define the face and drawing-options structs at compile-time.
--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/28 08:25:34 1.52 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/30 12:46:12 1.53 @@ -91,13 +91,14 @@ ;;; ;;; The standard redisplay implementation for buffer views.
-(defstruct face - "A face is a description of how to draw (primarily) text, it +(eval-when (:compile-toplevel :load-toplevel :execute) + (defstruct face + "A face is a description of how to draw (primarily) text, it consists of an ink (a colour) and a text style. The text style may be incomplete, in which case it is merged with the default text style whenever it needs to be used." - (ink +foreground-ink+) - (style nil)) + (ink +foreground-ink+) + (style nil)))
(defconstant +default-stroke-drawer-dispatcher+ #'(lambda (stream view stroke cursor-x cursor-y default-drawing-fn draw) @@ -107,10 +108,11 @@ arguments. Used as the default drawing-function of `drawing-options' objects.")
-(defstruct drawing-options - "A set of options for how to display a stroke." - (face (make-face)) - (function +default-stroke-drawer-dispatcher+)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defstruct drawing-options + "A set of options for how to display a stroke." + (face (make-face)) + (function +default-stroke-drawer-dispatcher+)))
(defun drawing-options-equal (o1 o2) "Return true if `o1' and `o2' are equal, that is, they specify