A subclass of
pinboard-object
which displays a line and draws a label in the middle of it.
Note that the label text is inherited from item.
(capi:contain
(make-instance
'capi:pinboard-layout
:description
(list (make-instance
'capi:labelled-line-pinboard-object
:text "Labelled Line"
:start-x 10 :start-y 10
:end-x 80 :end-y 60)
(make-instance
'capi:labelled-arrow-pinboard-object
:text "Labelled Arrow"
:start-x 10 :start-y 70
:end-x 80 :end-y 120
:head-direction :both))))