A subclass of
pinboard-object
which displays a line drawn between two corners of the area enclosed by the pinboard object.
The x coordinate of the start of the line.
The y coordinate of the start of the line.
The x coordinate of the end of the line.
The y coordinate of the end of the line.
start-x , start-y , end-x and end-y default to values computed from the x , y , width and height . They are used to compute the size of the object, and the proper value of x and y . Note that width and height may be larger, for example to accomodate the label in a labelled-line-pinboard-object, and the x and y are adjusted for that.
To change the end points of the line, call move-line.
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
:start-x 0 :end-x 100
:start-y 100 :end-y 0))