define-=attrs ( base-class attrs-class -- )

Vocabulary

graphviz.notation.private

Inputs

base-class	an object
attrs-class	an object

Outputs

None

Definition

USING: accessors kernel sequences words ;

IN: graphviz.notation.private

: define-=attrs ( base-class attrs-class -- )
    dup "slots" word-prop
    [ name>> [ attrs-obj-=attr ] keep graph-obj-=attr ] 2with
    each ;