nehe4-update-thread ( gadget -- )

Vocabulary

nehe.4

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel threads ui.gadgets ;

IN: nehe.4

: nehe4-update-thread ( gadget -- )
    dup quit?>>
    [ drop ]
    [ redraw-interval sleep dup relayout-1 nehe4-update-thread ]
    if ;