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