: nehe4-update-thread ( gadget -- ) dup quit?>> [ drop ] [ redraw-interval sleep dup relayout-1 nehe4-update-thread ] if ; M: nehe4-gadget graft* ( gadget -- ) f >>quit? [ nehe4-update-thread ] curry in-thread ;