cursor<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: cursor<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private
libclang.ffi specialized-arrays.instances.alien.c-types.void* ;

M: CXIdxAttrInfo cursor<<
    T{ struct-slot-spec
        { name "cursor" }
        { offset 8 }
        { class CXCursor }
        { initial
            S{ CXCursor
                { kind 0 }
                { xdata 0 }
                { data void*-array{ f f f } }
            }
        }
        { type CXCursor }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private math
x11.X x11.xlib ;

M: XSetWindowAttributes cursor<<
    T{ struct-slot-spec
        { name "cursor" }
        { offset 104 }
        { class integer }
        { initial 0 }
        { type Cursor }
    } write-struct-slot ; inline


USING: accessors slots.private ui.gadgets.incremental ;

M: incremental cursor<< 23 set-slot ; inline


USING: accessors kernel math mongodb.msg slots slots.private ;

M: mdb-getmore-msg cursor<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    9 set-slot ; inline


USING: accessors kernel math mongodb.msg slots slots.private ;

M: mdb-reply-msg cursor<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    8 set-slot ; inline


USING: accessors kernel papier.sprites slots slots.private ;

M: sprite cursor<<
    [
        dup
        animation-cursor?
        [ \ animation-cursor bad-slot-value ]
        unless
    ] dip 12 set-slot ; inline