nehe5-update-thread ( gadget -- )

Vocabulary

nehe.5

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel threads ui.gadgets ;

IN: nehe.5

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