CLIM provides a mechanism for surrounding arbitrary output with some kind of a border. The programmer annotates some output-generating code with an advisory macro that describes the type of border to be drawn. The following code produces the output shown in Figure 34..
For example, the following produces three pieces of output, which are surrounded by a rectangle, highlighted with a dropshadow, and underlined, respectively.
(defun border-test (stream)
(fresh-line stream)
(surrounding-output-with-border
(stream :shape :rectangle)
(format stream "This is some output with a rectangular border"))
(terpri stream) (terpri stream)
(surrounding-output-with-border
(stream :shape :drop-shadow)
(format stream "This has a drop-shadow under it"))
(terpri stream) (terpri stream)
(surrounding-output-with-border
(stream :shape :underline)
(format stream "And this output is underlined")))
surrounding-output-with-border [Macro]
Arguments: (
&optional
stream
&key
shape (move-cursor
t
))
&body
body
Summary: Binds the local environment in such a way the output of body will be surrounded by a border of the specified shape. Supported shapes are :rectangle (the default), :oval , :drop-shadow , and :underline . :rectangle draws a rectangle around the bounding rectangle of the output. :oval draws an oval around the bounding rectangle of the output. :drop-shadow draws a "drop shadow" around the lower right edge of the bounding rectangle of the output. :underline draws a thin line along the baseline of all of the text in the output, but does not draw anything underneath non-textual output.
If the boolean move-cursor is t (the default), then the text cursor will be moved so that it immediately follows the lower right corner of the bordered output.
stream is an output recording stream to which output will be done. The stream argument is not evaluated, and must be a symbol that is bound to a stream. If stream is t (the default), *standard-output* is used. body may have zero or more declarations as its first forms.
define-border-type [Macro]
Arguments: shape arglist
&body
body
Summary: Defines a new kind of border named
shape
.
arglist
must be a subset of the "canonical" arglist (using
string-equal
to do the comparison)
(
&key
stream record left top right bottom). body
is the code that actually draws the border. It has lexical access to
stream
,
record
,
left
,
top
,
right
, and
bottom
, which are respectively, the stream being drawn on, the output record being surrounded, and the coordinates of the left, top, right, and bottom edges of the bounding rectangle of the record.
body
may have zero or more declarations as its first forms.