root<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: root<< ( value object -- )

Methods

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

M: XButtonEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 40 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


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

M: XCrossingEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 40 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private math
x11.X x11.xinput2.ffi ;

M: XIDeviceEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 64 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private math
x11.X x11.xinput2.ffi ;

M: XIEnterEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 64 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


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

M: XKeyEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 40 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


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

M: XMotionEvent root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 40 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


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

M: XWindowAttributes root<<
    T{ struct-slot-spec
        { name "root" }
        { offset 32 }
        { class integer }
        { initial 0 }
        { type Window }
    } write-struct-slot ; inline


USING: accessors http.server.static slots.private ;

M: file-responder root<< 2 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes root<< 76 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes root<< 29 set-slot ; inline


USING: accessors kernel persistent.vectors
persistent.vectors.private slots slots.private ;

M: persistent-vector root<<
    [ dup node? [ \ node bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors slots.private trees ;

M: tree root<< 2 set-slot ; inline