table<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: table<< ( value object -- )

Methods

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

M: column-headers table<< 18 set-slot ; inline


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

M: combobox table<< 22 set-slot ; inline


USING: accessors slots.private ui.tools.listener.completion ;

M: completion-popup table<< 25 set-slot ; inline


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

M: cpHashSet table<<
    T{ struct-slot-spec
        { name "table" }
        { offset 32 }
        { class c-ptr }
        { type pointer: pointer: cpHashSetBin }
    } write-struct-slot ; inline


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

M: cpSpaceHash table<<
    T{ struct-slot-spec
        { name "table" }
        { offset 32 }
        { class c-ptr }
        { type pointer: pointer: cpSpaceHashBin }
    } write-struct-slot ; inline


USING: accessors git slots.private ;

M: idx table<< 3 set-slot ; inline


USING: accessors slots.private ui.tools.inspector ;

M: inspector-gadget table<< 24 set-slot ; inline


USING: accessors logic.private slots.private ;

M: logic-env table<< 2 set-slot ; inline


USING: accessors compression.lzw slots.private ;

M: lzw table<< 4 set-slot ; inline


USING: accessors slots.private ui.gadgets.search-tables ;

M: search-table table<< 24 set-slot ; inline


USING: accessors db.errors slots.private ;

M: sql-table-exists table<< 3 set-slot ; inline


USING: accessors db.errors slots.private ;

M: sql-table-missing table<< 3 set-slot ; inline


USING: accessors lcs.private slots.private ;

M: trace-state table<< 4 set-slot ; inline