new-world ( class -- world )

Vocabulary

ui.gadgets.worlds

Inputs

class

an object

Outputs

world

an object

Definition

USING: accessors concurrency.promises kernel ui.gadgets
ui.gadgets.tracks ;

IN: ui.gadgets.worlds

: new-world ( class -- world )
    vertical swap new-track t >>root? f >>active?
    { 0 0 } >>window-loc f >>grab-input?
    V{ } clone >>window-resources <promise> >>promise ;