string<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: string<< ( value object -- )

Methods

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

M: GdkEventKey string<<
    T{ struct-slot-spec
        { name "string" }
        { offset 40 }
        { class c-ptr }
        { type pointer: gchar }
    } write-struct-slot ; inline


USING: L-system accessors slots.private ;

M: L-system string<< 26 set-slot ; inline


USING: accessors kernel slots slots.private smalltalk.ast
strings ;

M: ast-comment string<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors slots.private xml-rpc ;

M: base64 string<< 2 set-slot ; inline


USING: accessors farkup slots.private ;

M: code string<< 3 set-slot ; inline


USING: accessors gml.parser slots.private ;

M: comment string<< 2 set-slot ; inline


USING: accessors opengl slots.private ;

M: gl-error-tuple string<< 4 set-slot ; inline


USING: accessors bittorrent slots.private ;

M: handshake string<< 2 set-slot ; inline


USING: accessors io.styles slots.private ;

M: input string<< 2 set-slot ; inline


USING: accessors classes kernel strings ui.gadgets
ui.gadgets.labels ui.gadgets.labels.private ;

M: label string<<
    [
        dup string-array?
        [ string check-instance ?string-lines ] unless
    ] dip [ text<< ] [ relayout ] bi ; inline


USING: accessors core-text slots.private ;

M: line string<< 5 set-slot ; inline


USING: accessors pdf.layout slots.private ;

M: p string<< 2 set-slot ; inline


USING: accessors colors slots.private ;

M: parsed-color string<< 2 set-slot ; inline


USING: accessors io.pathnames slots.private ;

M: pathname string<< 2 set-slot ; inline


USING: accessors modern.out slots.private ;

M: renamed string<< 3 set-slot ; inline


USING: accessors slots.private xml-rpc ;

M: rpc-fault string<< 3 set-slot ; inline


USING: accessors fonts slots.private ;

M: selection string<< 2 set-slot ; inline


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

M: stack-entry string<< 3 set-slot ; inline


USING: accessors slots.private xmode.rules ;

M: string-matcher string<< 2 set-slot ; inline


USING: accessors prettyprint.sections slots.private ;

M: text-section string<< 8 set-slot ; inline


USING: accessors pdf.layout slots.private ;

M: text string<< 2 set-slot ; inline


USING: accessors parser-combinators slots.private ;

M: token-parser string<< 2 set-slot ; inline


USING: accessors slots.private xml.data ;

M: unescaped string<< 2 set-slot ; inline


USING: accessors slots.private ui.gestures ;

M: user-input-tuple string<< 2 set-slot ; inline


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

M: yaml_emitter_output string<<
    T{ struct-slot-spec
        { name "string" }
        { offset 0 }
        { class yaml_emitter_output_string }
        { initial
            S{ yaml_emitter_output_string
                { buffer f }
                { size 0 }
                { size_written f }
            }
        }
        { type yaml_emitter_output_string }
    } write-struct-slot ; inline


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

M: yaml_parser_input string<<
    T{ struct-slot-spec
        { name "string" }
        { offset 0 }
        { class string_yaml_parser_input }
        { initial
            S{ string_yaml_parser_input
                { start f }
                { end f }
                { current f }
            }
        }
        { type string_yaml_parser_input }
    } write-struct-slot ; inline