source<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: source<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private raylib ;

M: NPatchInfo source<<
    T{ struct-slot-spec
        { name "source" }
        { offset 0 }
        { class Rectangle }
        { initial
            S{ Rectangle
                { x 0.0 }
                { y 0.0 }
                { width 0.0 }
                { height 0.0 }
            }
        }
        { type Rectangle }
    } write-struct-slot ; inline


USING: accessors audio.engine slots.private ;

M: audio-clip source<< 5 set-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private lua ;

M: lua_Debug source<<
    T{ struct-slot-spec
        { name "source" }
        { offset 32 }
        { class c-ptr }
        { type pointer: char }
    } write-struct-slot ; inline


USING: accessors gpu.shaders kernel slots slots.private strings
;

M: shader source<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    6 set-slot ; inline


USING: accessors slots.private twitter ;

M: twitter-status source<< 5 set-slot ; inline


USING: accessors slots.private verbal-expressions ;

M: verbal-expression source<< 3 set-slot ; inline