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))