drawn-pinboard-object is a subclass of pinboard-object which is drawn by a supplied function, and is provided as a means of the user creating their own pinboard objects.
Called to display the object.
is called with the output pane to draw on, the
drawn-pinboard-object itself, and the
of the object, and it is expected to redraw that section. The
should not draw outside the object's bounds.
An alternative way of doing this is to create a subclass of pinboard-object and to provide a method for
(output-pane self x y width height)
(let ((x-radius (floor width 2))
(y-radius (floor height 2)))
(+ x x-radius) (+ y y-radius)
There are further examples in Self-contained examples.
CAPI User Guide and Reference Manual (Macintosh version) - 25 Feb 2015