initial-background-color ( attributes -- color )

Vocabulary

ui.gadgets.worlds

Inputs

attributes

an object

Outputs

color

an object

Definition

USING: accessors colors kernel sequences ;

IN: ui.gadgets.worlds

: initial-background-color ( attributes -- color )
    window-controls>> textured-background swap member-eq? [
        T{ rgba
            { red 0.0 }
            { green 0.0 }
            { blue 0.0 }
            { alpha 0.0 }
        }
    ] [
        T{ rgba
            { red 1.0 }
            { green 1.0 }
            { blue 1.0 }
            { alpha 1.0 }
        }
    ] if ;