factor/extra/snake-game/snake-game.factor

21 lines
541 B
Factor

! Copyright (C) 2015 Sankaranarayanan Viswanathan
! See http://factorcode.org/license.txt for BSD license.
USING: accessors sets snake-game.ui ui ui.gadgets.status-bar
ui.gadgets.worlds ;
IN: snake-game
: <snake-world-attributes> ( -- world-attributes )
<world-attributes> "Snake Game" >>title
[
{ maximize-button resize-handles } without
] change-window-controls ;
: play-snake-game ( -- )
[
<snake-gadget>
<snake-world-attributes>
open-status-window
] with-ui ;
MAIN: play-snake-game