17.1.3 Examples of Formatting Tables
(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:
Generated with Harlequin WebMaker