A subclass of pinboard-object
that displays a line drawn around two edges of the area enclosed by the pinboard object.
A subclass of line-pinboard-object
which displays a line around the edge of the pinboard object rather than diagonally. The type
of line can be one of two values.
Draw top-left to bottom-left to bottom-right.
Draw top-left to top-right to bottom-right.
The main use of this class is to produce graphs with right-angled edges rather than diagonal ones.
(capi:contain (make-instance
'capi:right-angle-line-pinboard-object
:visible-min-width 100
:visible-min-height 100))
(capi:contain (make-instance
'capi:right-angle-line-pinboard-object
:visible-min-width 100
:visible-min-height 100
:type :horizontal-first))
(capi:contain (list
(make-instance
'capi:right-angle-line-pinboard-object
:visible-min-width 100
:visible-min-height 100)
(make-instance
'capi:right-angle-line-pinboard-object
:visible-min-width 100
:visible-min-height 100
:type :horizontal-first)))