17.1.3 Examples of Formatting Tables Formatting a Table With Regular Graphic Elements

The example2 function shows how you can draw graphics within the cells of a table. Each cell contains a rectangle of the same dimensions.

(defun example2 (&key (stream *standard-output*) 
   (stream :inter-row-spacing inter-row-spacing
           :inter-column-spacing inter-column-
   (dotimes (i 3)
      (dotimes (j 3)
         (clim:draw-rectangle* stream 10 10 50 50)))))))
Evaluating(example2 :stream *my-stream* :inter-row-spacing 5) shows this table:

Figure 27. Example2 Table

CLIM 2.0 User's Guide - OCT 1998

Generated with Harlequin WebMaker