line-pinboard-object

line-pinboard-object Class

Summary

A subclass of pinboard-object which displays a line drawn between two corners of the area enclosed by the pinboard object.

Package

capi

Superclasses

pinboard-object

Subclasses

arrow-pinboard-object
right-angle-line-pinboard-object

Initargs

`:start-x`	The x coordinate of the start of the line.
`:start-y`	The y coordinate of the start of the line.
`:end-x`	The x coordinate of the end of the line.
`:end-y`	The y coordinate of the end of the line.

Description

The class line-pinboard-object displays a line drawn between two corners of the area enclosed by the pinboard object.

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 accommodate 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.

Examples

(capi:contain 
 (make-instance
  'capi:line-pinboard-object
  :start-x 0 :end-x 100
  :start-y 100 :end-y 0))