dim<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: dim<< ( value object -- )

Methods

USING: accessors cuda.ptx kernel slots slots.private ;

M: .maxntid dim<<
    [ dup dim? [ \ dim bad-slot-value ] unless ] dip 2 set-slot
    ; inline


USING: accessors generic kernel ui.gadgets ui.gadgets.private ;

M: gadget dim<<
    2dup dim>> =
    [ 2drop ] [
        [ nip ] [ M\ gadget dim<< (call-next-method) ] 2bi
        dim-changed
    ] if ;


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes dim<< 17 set-slot ; inline


USING: accessors grid-meshes slots.private ;

M: grid-mesh dim<< 2 set-slot ; inline


USING: accessors images slots.private ;

M: image dim<< 2 set-slot ; inline


USING: accessors core-text slots.private ;

M: line dim<< 10 set-slot ; inline


USING: accessors cuda.ptx kernel slots slots.private ;

M: ptx-variable dim<<
    [ dup dim? [ \ dim bad-slot-value ] unless ] dip 9 set-slot
    ; inline


USING: accessors math.rectangles slots.private ;

M: rect dim<< 3 set-slot ; inline


USING: accessors opengl.textures.private slots.private ;

M: single-texture dim<< 5 set-slot ; inline


USING: accessors generic kernel ui.gadgets.worlds ;

M: world dim<<
    [ M\ world dim<< (call-next-method) ] [
        dup active?>> [
            dup handle>>
            [ [ set-gl-context ] [ resize-world ] bi ] [ drop ]
            if
        ] [ drop ] if
    ] bi ;