diff --git a/quad/quadwriter/attrs.rkt b/quad/quadwriter/attrs.rkt index 38eac04c..605ce718 100644 --- a/quad/quadwriter/attrs.rkt +++ b/quad/quadwriter/attrs.rkt @@ -102,6 +102,7 @@ Naming guidelines position text color + stroke x y x2 diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt index 437ffde8..e96c8b3e 100644 --- a/quad/quadwriter/layout.rkt +++ b/quad/quadwriter/layout.rkt @@ -150,11 +150,7 @@ (define-quad draw-quad quad) (define q:draw (q #:type draw-quad #:from 'bo - #:to 'bi - #:id 'str - #:printable q:string-printable? - #:draw q:string-draw - #:draw-end q:string-draw-end)) + #:to 'bi)) (define (convert-draw-quad q) (quad-copy draw-quad q:draw @@ -170,7 +166,7 @@ (define y0 (quad-ref q :y 0)) (move-to doc x0 y0) (line-to doc (quad-ref q :x2 x0) (quad-ref q :y2 y0)) - (line-width doc (quad-ref q :width 1)) + (line-width doc (quad-ref q :stroke 1)) (stroke doc (quad-ref q :color "black"))] ["text" (move-to doc 0 0) (q:string-draw q doc