top<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: top<< ( value object -- )

Methods

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

M: NPatchInfo top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 20 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors slots.private units ;

M: dimensioned top<< 3 set-slot ; inline


USING: accessors images.gif slots.private ;

M: image-descriptor top<< 3 set-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: mapping_node_data_pairs top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_pair_t }
    } write-struct-slot ; inline


USING: accessors pdf.canvas slots.private ;

M: margin top<< 4 set-slot ; inline


USING: accessors pop3.private slots.private ;

M: raw-source top<< 2 set-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: sequence_node_data_items top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_item_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_document_nodes top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_t }
    } write-struct-slot ; inline


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

M: yaml_emitter_indents top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: int }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_states top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_emitter_state_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_tag_directives top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_tag_directive_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_aliases top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_alias_data_t }
    } write-struct-slot ; inline


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

M: yaml_parser_indents top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: int }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_marks top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_mark_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_simple_keys top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_simple_key_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_states top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_parser_state_t }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_tag_directives top<<
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_tag_directive_t }
    } write-struct-slot ; inline