@@ -137,10 +137,11 @@
 ;; get extents, use knowledge of type ...
 ;;
 (define (vg:obj-get-extents drawing obj)
   (let ((type (vg:obj-type obj)))
     (case type
+      ((l)(vg:rect-get-extents obj))
       ((r)(vg:rect-get-extents obj))
       ((t)(vg:draw-text drawing obj draw: #f))
       (else #f))))
 
 (define (vg:rect-get-extents obj)
@@ -388,10 +389,11 @@
 ;; with draw = #f don't actually draw the object
 ;;
 (define (vg:draw-obj drawing obj #!key (draw #t))
   ;; (print "obj type: " (vg:obj-type obj))
   (case (vg:obj-type obj)
+    ((l)(vg:draw-line drawing obj draw: draw))
     ((r)(vg:draw-rect drawing obj draw: draw))
     ((t)(vg:draw-text drawing obj draw: draw))))
 
 ;; given a rect obj draw it on the canvas applying first the drawing
 ;; scale and offset
@@ -479,14 +481,14 @@
 	;; (if fill-color
 	;;     (begin
 	;; 	(canvas-foreground-set! cnv fill-color)
 	;; 	(canvas-box! cnv llx ulx lly uly))) ;; docs are all over the place on this one.;; w h)
 	  (if line-color
-	      (canvas-foreground-set! cnv line-color)
-	      (if fill-color
-		  (canvas-foreground-set! cnv prev-foreground-color)))
-	  (canvas-line! cnv llx ulx lly uly)
+	      (canvas-foreground-set! cnv line-color))
+	     ;; (if fill-color
+	     ;;  (canvas-foreground-set! cnv prev-foreground-color)))
+	  (canvas-line! cnv llx lly ulx uly)
 	  (canvas-foreground-set! cnv prev-foreground-color)
 	  (if text 
 	      (let* ((prev-font    (canvas-font cnv))
 		     (font-changed (and font (not (equal? font prev-font)))))
 		(if font-changed (canvas-font-set! cnv font))