Class

Summary

A pinboard-object that draws itself as an arrow.

Package

capi

Superclasses

line-pinboard-object

Subclasses

double-headed-arrow-pinboard-object
labelled-arrow-pinboard-object

Initargs

:head

A keyword specifying the position of the arrowhead on the line.

:head-direction

A keyword specifying the direction of the arrowhead.

:head-length

The length of the arrowhead.

:head-breadth

The breadth of the arrowhead, or nil .

:head-graphics-args

A graphics args plist.

Description

An instance of the class arrow-pinboard-object is a pinboard-object that draws itself as an arrow.

head must be :end , :middle or :start . The default is :end .

head-direction must be :forwards , :backwards or :both . The default is :forwards .

head-length is the length of the arrowhead in pixels. It defaults to 12.

head-breadth is the breadth of the arrowhead in pixels, or nil which means that the breadth is half of head-length . The default is nil .

head-graphics-args is a plist of graphics state parameters and values used when drawing the arrow head. For information about the graphics state, see the section "Graphics State" in the LispWorks CAPI User Guide .

Example

(capi:contain

 (make-instance

  'capi:pinboard-layout

  :description

  (list

   (make-instance 'capi:arrow-pinboard-object 

                  :start-x 5 :start-y 10 

                  :end-x 105 :end-y 60 )

   (make-instance 'capi:arrow-pinboard-object 

                  :start-x 5 :start-y 110 

                  :end-x 105 :end-y 160 

                  :head :middle)

   (make-instance 'capi:arrow-pinboard-object

                  :start-x 5 :start-y 210 

                  :end-x 105 :end-y 260

                  :head-direction :both )

   (make-instance 'capi:arrow-pinboard-object 

                  :start-x 5 :start-y 310 

                  :end-x 105 :end-y 360

                  :head-graphics-args 

                  '(:foreground :pink)

                  :head-length 30)

   (make-instance 'capi:arrow-pinboard-object 

                  :start-x 5 :start-y 410 

                  :end-x 105 :end-y 460  

                  :head-length 30 :head-breadth 5)

   (make-instance 'capi:arrow-pinboard-object 

                  :start-x 5 :start-y 510 

                  :end-x 105 :end-y 560 

                  :head-breadth 10 

                  :head-direction :backwards))

  :visible-min-width 120

  :visible-min-height 620))