From rjain at common-lisp.net  Mon Mar  1 18:14:54 2004
From: rjain at common-lisp.net (Rahul Jain)
Date: Mon, 01 Mar 2004 13:14:54 -0500
Subject: [defdoc-cvs] CVS update: DefDoc/src/elements/basic-elements.lisp 
Message-ID: <E1AxrwM-0002YE-00@common-lisp.net>

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




From rjain at common-lisp.net  Sun Mar 28 17:46:07 2004
From: rjain at common-lisp.net (Rahul Jain)
Date: Sun, 28 Mar 2004 12:46:07 -0500
Subject: [defdoc-cvs] CVS update: DefDoc/website/Makefile 
Message-ID: <E1B7eMJ-0006E8-00@common-lisp.net>

Update of /project/defdoc/cvsroot/DefDoc/website
In directory common-lisp.net:/tmp/cvs-serv23452/website

Modified Files:
	Makefile 
Log Message:
add html version of overview doc

Date: Sun Mar 28 12:46:07 2004
Author: rjain

Index: DefDoc/website/Makefile
diff -u DefDoc/website/Makefile:1.4 DefDoc/website/Makefile:1.5
--- DefDoc/website/Makefile:1.4	Sun Feb 15 00:27:01 2004
+++ DefDoc/website/Makefile	Sun Mar 28 12:46:07 2004
@@ -12,10 +12,10 @@
 
 install-docs: install-overview
 
-install-overview: overview.pdf overview.ps ../doc/overview.tex
+install-overview: overview.pdf overview.ps overview.html ../doc/overview.tex
 	$(INSTALL) -m 644 $^ $(WEBDIR)
 
-overview.pdf overview.ps: ../doc/overview.tex overview.bbl
+overview.html overview.pdf overview.ps: ../doc/overview.tex overview.bbl
 
 overview.bbl: overview.bib
 	bibtex overview