@@ -1028,11 +1028,14 @@
 		     #:posx "0.5"
 		     #:posy "0.5"
 		     #:action (make-canvas-action
 			       (lambda (c xadj yadj)
 				 (if (not (dboard:tabdat-cnv tabdat))
-				     (dboard:tabdat-cnv-set! tabdat c))))
+				     (dboard:tabdat-cnv-set! tabdat c))
+				 (let ((drawing (dboard:tabdat-drawing tabdat)))
+				   #f ;; finish me!!
+				   )))
 		     #:wheel-cb (lambda (obj step x y dir) ;; dir is 4 for up and 5 for down. I think.
 				  (let* ((drawing (dboard:tabdat-drawing tabdat))
 					 (scalex  (vg:drawing-scalex drawing)))
 				    (vg:drawing-scalex-set! drawing
 							    (+ scalex
@@ -1958,10 +1961,15 @@
 					       run-duration
 					       (current-seconds)))) ;; a least lously guess
 			    (maptime    (lambda (tsecs)(* timescale (+ tsecs timeoffset)))))
 		       ;; (print "timescale: " timescale " timeoffset: " timeoffset " sizex: " sizex " originx: " originx)
 		       (vg:add-comp-to-lib runslib run-full-name runcomp)
+		       (vg:add-objs-to-comp runcomp (vg:make-text 
+						     10
+						     (- sizey (* start-row row-height))
+						     run-full-name
+						     font: "Helvetica -10"))
 		       ;; get tests in list sorted by event time ascending
 		       (for-each 
 			(lambda (testdat)
 			  (let* ((event-time   (maptime (db:test-get-event_time   testdat)))
 				 (run-duration (* timescale (db:test-get-run_duration testdat)))
@@ -1987,11 +1995,11 @@
 									       (vg:iup-color->number (car name-color)))))))
 			    ;; (print "test-name: " test-name " event-time: " event-time " run-duration: " run-duration)
 			    ))
 			testsdat)
 		       ;; instantiate the component 
-		       (let* ((extents (vg:components-get-extents runcomp))
+		       (let* ((extents (vg:components-get-extents drawing runcomp))
 			      (llx     (list-ref extents 0))
 			      (lly     (list-ref extents 1))
 			      (ulx     (list-ref extents 2))
 			      (uly     (list-ref extents 3))
 			      ;; move the following into mapping functions in vg.scm