/[defdoc]/DefDoc/src/elements/basic-elements.lisp
ViewVC logotype

Diff of /DefDoc/src/elements/basic-elements.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by rjain, Sun Dec 7 23:27:10 2003 UTC revision 1.3 by rjain, Thu Oct 11 16:16:18 2007 UTC
# Line 173  given DISTANCE away from where it is def Line 173  given DISTANCE away from where it is def
173  ;;; Rules  ;;; Rules
174  ;;;  ;;;
175    
176  (defvar *default-rule-thickness* '(4/10 px))  (defvar *default-line-rule-thickness* '(4/10 px))
177    
178  (defclass rule-mixin (dimension-mixin)  (defclass rule-mixin ()
179    ()    ()
180    (:documentation "An element that is filled with ink within the dimension boundaries."))    (:documentation "An element that is filled with ink within the dimension boundaries."))
181    
182  (defclass horizontal-rule (horizontal-element rule-mixin)  (defclass horizontal-rule (horizontal-element rule-mixin)
183    ((height :initform *default-rule-thickness*)))    ((height)))
184    
185    (defmethod slot-unbound (class (instance horizontal-rule) (slot-name (eql 'height)))
186      *default-line-rule-thickness*)
187    
188  (defclass vertical-rule (vertical-element rule-mixin)  (defclass vertical-rule (vertical-element rule-mixin)
189    ((width :initform *default-rule-thickness*)))    ((width)))
190    
191    (defmethod slot-unbound (class (instance vertical-rule) (slot-name (eql 'width)))
192      *default-line-rule-thickness*)
193    
194  ;;;  ;;;
195  ;;; Characters  ;;; Characters

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5