A subclass of
pinboard-object
which displays a line drawn between two corners of the area enclosed by the pinboard object.
If the direction is
: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 class
right-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
:visible-min-width 100
:visible-min-height 100))
(capi:contain (make-instance
'capi:line-pinboard-object
:visible-min-width 100
:visible-min-height 100
:direction :up))