[defdoc-cvs] CVS update: DefDoc/src/elements/basic-elements.lisp

[Rahul Jain]

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