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*)
inter-row-spacing
inter-column-spacing)
(clim:formatting-table
(stream :inter-row-spacing inter-row-spacing
:inter-column-spacing inter-column-
spacing)
(dotimes (i 3)
(clim:formatting-row
(stream)
(dotimes (j 3)
(clim:formatting-cell
(stream)
(clim:draw-rectangle* stream 10 10 50 50)))))))
Evaluating (example2 :stream *my-stream* :inter-row-spacing 5) shows this table:
