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