Class
pinboard-object which displays a line drawn between two corners of the area enclosed by the pinboard object. :down, then the line is drawn from top-left to bottom-right, and if it is:up it is drawn from bottom-left to top-right. A complementary classright-angle-line-pinboard-object is provided which draws a line around the edge of the pinboard object.
(capi:contain (make-instance
'capi:line-pinboard-object
:min-width 100
:min-height 100))
(capi:contain (make-instance
'capi:line-pinboard-object
:min-width 100
:min-height 100
:direction :up))
pinboard-layout