loading?>> ( object -- value )


Vocabulary
accessors

Inputs
objectan object


Outputs
valuean object


Definition
IN: accessors

GENERIC: loading?>> ( object -- value )


Methods
USING: accessors images.gif slots.private ;

M: loading-gif loading?>> 2 slot ; inline