state<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: state<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private gdk2.ffi
gobject-introspection.standard-types math ;

M: GdkEventButton state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 48 }
        { class fixnum }
        { initial 0 }
        { type guint }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private gdk2.ffi
gobject-introspection.standard-types math ;

M: GdkEventKey state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 24 }
        { class fixnum }
        { initial 0 }
        { type guint }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private gdk2.ffi
gobject-introspection.standard-types math ;

M: GdkEventMotion state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 48 }
        { class fixnum }
        { initial 0 }
        { type guint }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private gdk2.ffi
gobject-introspection.standard-types math ;

M: GdkEventScroll state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 40 }
        { class fixnum }
        { initial 0 }
        { type guint }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private cocoa.types math ;

M: NSFastEnumerationState state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 0 }
        { class integer }
        { initial 0 }
        { type ulong }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math openssl.libssl ;

M: SSL state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 72 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XButtonEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 80 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XColormapEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 52 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XCrossingEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 96 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


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

M: XIButtonClassInfo state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 24 }
        { class XIButtonState }
        { initial S{ XIButtonState { mask_len 0 } { mask f } } }
        { type XIButtonState }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XKeyEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 80 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XMotionEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 80 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XPropertyEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 56 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XVisibilityEvent state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 40 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors crypto.aes.private slots.private ;

M: aes-state state<< 4 set-slot ; inline


USING: accessors audio.gadget slots.private ;

M: audio-gadget state<< 32 set-slot ; inline


USING: accessors minesweeper slots.private ;

M: cell state<< 4 set-slot ; inline


USING: accessors slots.private usa-cities ;

M: city state<< 4 set-slot ; inline


USING: accessors alien.c-types chipmunk.ffi classes.struct
classes.struct.private math ;

M: cpArbiter state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 81 }
        { class fixnum }
        { initial 0 }
        { type char }
    } write-struct-slot ; inline


USING: accessors generators slots.private ;

M: generator state<< 2 set-slot ; inline


USING: accessors checksums.md5 kernel slots slots.private
specialized-arrays.instances.alien.c-types.uint ;

M: md5-state state<<
    [ dup uint-array? [ \ uint-array bad-slot-value ] unless ]
    dip 8 set-slot ; inline


USING: accessors logic.private slots.private ;

M: resolver-gen state<< 2 set-slot ; inline


USING: accessors kernel random.sfmt.private slots slots.private
;

M: sfmt state<<
    [ dup sfmt-state? [ \ sfmt-state bad-slot-value ] unless ]
    dip 2 set-slot ; inline


USING: accessors metar slots.private ;

M: station state<< 4 set-slot ; inline


USING: accessors slots.private threads ;

M: thread state<< 7 set-slot ; inline


USING: accessors hashtables.private slots.private ;

M: tombstone state<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private kernel
yaml.ffi ;

M: yaml_emitter_t state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 168 }
        { class object }
        { type yaml_emitter_state_t }
    } write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private kernel
yaml.ffi ;

M: yaml_parser_t state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 392 }
        { class object }
        { type yaml_parser_state_t }
    } write-struct-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private compression.zlib.ffi ;

M: z_stream state<<
    T{ struct-slot-spec
        { name "state" }
        { offset 56 }
        { class c-ptr }
        { type pointer: void }
    } write-struct-slot ; inline