21 lines
541 B
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
|