jamshred-loop ( gadget -- )

Vocabulary

jamshred

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors calendar jamshred.game kernel threads
ui.gadgets ;

IN: jamshred

: jamshred-loop ( gadget -- )
    dup jamshred>> quit>>
    [ drop ] [
        [ jamshred>> jamshred-update ] [ relayout-1 ]
        [ 100 milliseconds sleep jamshred-loop ] tri
    ] if ;