width<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: width<< ( value object -- )

Methods

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

M: GdkEventConfigure width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 28 }
        { class fixnum }
        { initial 0 }
        { type gint }
    } write-struct-slot ; inline


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

M: Image width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: PangoRectangle width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type gint }
    } write-struct-slot ; inline


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

M: Rectangle width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class float }
        { initial 0.0 }
        { type float }
    } write-struct-slot ; inline


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

M: Texture2D width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: XCharStruct width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type short }
    } write-struct-slot ; inline


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

M: XConfigureEvent width<<
    T{ struct-slot-spec
        { name "width" }
        { 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: XConfigureRequestEvent width<<
    T{ struct-slot-spec
        { name "width" }
        { 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: XCreateWindowEvent width<<
    T{ struct-slot-spec
        { name "width" }
        { 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: XExposeEvent width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 48 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: XGraphicsExposeEvent width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 48 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

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


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

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


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

M: XSizeHints width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 16 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: XWindowAttributes width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: XWindowChanges width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors kernel math slots slots.private tetris.board ;

M: board width<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors gamelib.board slots.private ;

M: board width<< 2 set-slot ; inline


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

M: cairo_rectangle_int_t width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

M: cairo_rectangle_t width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 16 }
        { class float }
        { initial 0.0 }
        { type double }
    } write-struct-slot ; inline


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

M: cairo_text_extents_t width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 16 }
        { class float }
        { initial 0.0 }
        { type double }
    } write-struct-slot ; inline


USING: accessors pdf.canvas slots.private ;

M: canvas width<< 4 set-slot ; inline


USING: accessors google.charts slots.private ;

M: chart width<< 3 set-slot ; inline


USING: accessors pdf.layout slots.private ;

M: hr width<< 2 set-slot ; inline


USING: accessors images.gif slots.private ;

M: image-descriptor width<< 4 set-slot ; inline


USING: accessors cpu.arm.assembler.opcodes slots.private ;

M: integer-literal width<< 3 set-slot ; inline


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

M: line width<< 3 set-slot ; inline


USING: accessors images.gif slots.private ;

M: loading-gif width<< 4 set-slot ; inline


USING: accessors images.png slots.private ;

M: loading-png width<< 3 set-slot ; inline


USING: accessors fonts slots.private ;

M: metrics width<< 2 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes width<< 41 set-slot ; inline


USING: accessors images.bitmap slots.private ;

M: os2v1-header width<< 2 set-slot ; inline


USING: accessors slots.private tinyvg ;

M: rectangle width<< 4 set-slot ; inline


USING: accessors pdf.layout slots.private ;

M: table-cell width<< 3 set-slot ; inline


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

M: th-img-plane width<<
    T{ struct-slot-spec
        { name "width" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors slots.private tinyvg ;

M: tinyvg width<< 5 set-slot ; inline


USING: accessors images.bitmap slots.private ;

M: v3-header width<< 2 set-slot ; inline


USING: accessors slots.private wrap.words ;

M: wrapping-word width<< 3 set-slot ; inline