mixin-class
Factor handbook » The language » Objects » Classes » Mixin classes

Prev:	add-mixin-instance ( class mixin -- )
Next:	mixin-class? ( object -- ? )

Vocabulary
classes.mixin

Class description
The class of mixin classes.

See also
define-mixin-class, add-mixin-instance, MIXIN:, INSTANCE:

Definition

USING: classes.union words ;

IN: classes.mixin

PREDICATE: mixin-class < union-class "mixin" word-prop ;

Methods

USING: classes classes.algebra classes.algebra.private
classes.mixin kernel sequences ;

M: mixin-class (classes-intersect?)
    class-members [ classes-intersect? ] with any? ;


USING: classes classes.mixin classes.private kernel ;

M: mixin-class metaclass-changed
    over class? [ 2drop ] [ remove-mixin-instance ] if ;


USING: classes.algebra.private classes.mixin ;

M: mixin-class normalize-class ;


USING: classes.mixin classes.private kernel ;

M: mixin-class rank-class drop 8 ;


USING: classes.mixin classes.private generic kernel words ;

M: mixin-class reset-class
    [ M\ mixin-class reset-class (call-next-method) ]
    [ "mixin" remove-word-prop ] bi ;


USING: classes classes.mixin kernel prettyprint.backend
prettyprint.sections see.private sequences ;

M: mixin-class see-class*
    <block \ MIXIN: pprint-word dup pprint-word
    <block dup class-members [
        hard add-line-break \ INSTANCE: pprint-word pprint-word
        pprint-word
    ] with each block> block> ;