apply-world-attributes ( world attributes -- world )

Vocabulary

ui.gadgets.worlds

Inputs

world	an object
attributes	an object

Outputs

world

an object

Definition

IN: ui.gadgets.worlds

GENERIC#: apply-world-attributes 1 ( world attributes -- world )

Methods

USING: accessors combinators game.worlds generic
ui.gadgets.worlds ;

M: game-world apply-world-attributes
    {
        [ tick-interval-nanos>> >>tick-interval-nanos ]
        [ use-game-input?>> >>use-game-input? ]
        [ use-audio-engine?>> >>use-audio-engine? ]
        [ audio-engine-device>> >>audio-engine-device ]
        [
            audio-engine-voice-count>>
            >>audio-engine-voice-count
        ]
        [
            M\ game-world apply-world-attributes
            (call-next-method)
        ]
    } cleave ;


USING: accessors combinators generic model-viewer
ui.gadgets.worlds ;

M: model-world apply-world-attributes
    {
        [ model-path>> >>model-path ]
        [
            M\ model-world apply-world-attributes
            (call-next-method)
        ]
    } cleave ;


USING: accessors combinators kernel sequences ui.gadgets.tracks
ui.gadgets.worlds ;

M: world apply-world-attributes
    {
        [ title>> >>title ]
        [ status>> >>status ]
        [ pixel-format-attributes>> >>pixel-format-attributes ]
        [ window-controls>> >>window-controls ]
        [ initial-background-color >>background-color ]
        [ grab-input?>> >>grab-input? ]
        [
            gadgets>> dup sequence?
            [ [ 1 track-add ] each ] [ 1 track-add ] if
        ]
        [ pref-dim>> >>pref-dim ]
        [ fill>> >>fill ]
        [ orientation>> >>orientation ]
    } cleave ;