Update of /project/defdoc/cvsroot/DefDoc/src/elements In directory common-lisp.net:/tmp/cvs-serv9798
Modified Files: basic-elements.lisp Log Message: tweak var name for line-rule default thickness
allow changes in this variable to propagate to rules keeping the default value
Date: Mon Mar 1 13:14:54 2004 Author: rjain
Index: DefDoc/src/elements/basic-elements.lisp diff -u DefDoc/src/elements/basic-elements.lisp:1.1.1.1 DefDoc/src/elements/basic-elements.lisp:1.2 --- DefDoc/src/elements/basic-elements.lisp:1.1.1.1 Sun Dec 7 18:27:10 2003 +++ DefDoc/src/elements/basic-elements.lisp Mon Mar 1 13:14:54 2004 @@ -173,17 +173,23 @@ ;;; Rules ;;;
-(defvar *default-rule-thickness* '(4/10 px)) +(defvar *default-line-rule-thickness* '(4/10 px))
(defclass rule-mixin (dimension-mixin) () (:documentation "An element that is filled with ink within the dimension boundaries."))
(defclass horizontal-rule (horizontal-element rule-mixin) - ((height :initform *default-rule-thickness*))) + ((height))) + +(defmethod slot-unbound (class (instance horizontal-rule) (slot-name (eql 'height))) + *default-line-rule-thickness*)
(defclass vertical-rule (vertical-element rule-mixin) - ((width :initform *default-rule-thickness*))) + ((width))) + +(defmethod slot-unbound (class (instance vertical-rule) (slot-name (eql 'width))) + *default-line-rule-thickness*)
;;; ;;; Characters