6.5 Graph Functions
procedure
parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>) (add-links parent child) → void? parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>)
(add-links parent child dark-pen light-pen dark-brush light-brush [ label]) → void? parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>) dark-pen : (or/c (is-a?/c pen) false/c) light-pen : (or/c (is-a?/c pen) false/c) dark-brush : (or/c (is-a?/c brush%) false/c) light-brush : (or/c (is-a?/c brush%) false/c) label : (or/c string? false/c) = #f
(add-links parent child dark-pen light-pen dark-brush light-brush dx dy [ label]) → void? parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>) dark-pen : (or/c (is-a?/c pen) false/c) light-pen : (or/c (is-a?/c pen) false/c) dark-brush : (or/c (is-a?/c brush%) false/c) light-brush : (or/c (is-a?/c brush%) false/c) dx : real? dy : real? label : (or/c string? false/c) = #f
Connects a parent snip to a child snip within a pasteboard.
The default dark-pen/dark-brush and light-pen/light-brush are blue and purple, respectively. The dark-pen and dark-brush are used when the mouse cursor is over the snip (or a child or parent), and the light-pen and light-brush are used when the mouse cursor is not over the snip. The brush is used to draw inside the arrow head and the pen is used to draw the border of the arrowhead and the line connecting the two snips.
if label is provided and not #f, it is used as a label on the edge.
When dx and dy are provided, the are offsets for the head and the tail of the arrow. Otherwise, 0 offsets are used.
procedure
(add-links/text-colors parent child dark-pen light-pen dark-brush light-brush dark-text light-text dx dy label) → void? parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>) dark-pen : (or/c (is-a?/c pen) false/c) light-pen : (or/c (is-a?/c pen) false/c) dark-brush : (or/c (is-a?/c brush%) false/c) light-brush : (or/c (is-a?/c brush%) false/c) dark-text : (or/c (is-a?/c color%) false/c) light-text : (or/c (is-a?/c color) false/c) dx : real? dy : real? label : (or/c string? false/c)
procedure
(remove-links parent child) → void?
parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>)
Disconnects a parent snip from a child snip within a pasteboard.
procedure
(set-link-label parent child label) → void?
parent : (is-a?/c graph-snip<%>) child : (is-a?/c graph-snip<%>) label : (or/c string? false/c)
Changes the label on the edge going from child to
parent to be label. If there is no existing edge
between the two nodes, then nothing happens.