add-parent in graph-snip<%>
Adds a parent of this snip. Instead of calling this
method, consider using add-links function provided
from this library.
(-> voidsenda-graph-snipadd-parentparent)
parent: (is-a?/cgraph-snip<%>)
(-> voidsenda-graph-snipadd-parentparentmouse-over-penmouse-off-penmouse-over-brushmouse-off-brush)
parent: (is-a?/cgraph-snip<%>)
mouse-over-pen: (union false? (is-a?/cpen%))
mouse-off-pen: (union false? (is-a?/cpen%))
mouse-over-brush: (union false? (is-a?/cbrush%))
mouse-off-brush: (union false? (is-a?/cbrush%)))