USING: accessors game-input game-loop kernel ui.gadgets
ui.gadgets.worlds ui.gestures ;
IN: game-worlds

TUPLE: game-world < world
    game-loop ;

GENERIC: tick-length ( world -- millis )

M: game-world draw*
    nip draw-world ;

M: game-world begin-world
    dup [ tick-length ] [ ] bi <game-loop> [ >>game-loop ] keep start-loop
    drop
    open-game-input ;

M: game-world end-world
    close-game-input
    [ [ stop-loop ] when* f ] change-game-loop
    drop ;

M: game-world focusable-child* drop t ;